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1 .0 INTRODUCTION 


MUS-X1 is a high level Interpreter for decoding music notation that was 
placed into memory into computer commands that are necessary to generate 
music from the SB-1 (Synthesizer board 1). The interpreter was written to 
run reai time in an 8080 CPU based system. The tempo/timing of the music 
being played is control led by a software (or hardware) timer set for 1/192 
note durations. MUS-X1 wi11 drive up to eight SB-1 cards at once. 

The size of MUS-X1 is approximately 4K bytes of RAM. The interpreter 
part of MUS-X1 is about 2.5K bytes with look-up tables occupying the rest 
of the 4K. MUS-X1 was written to start at the 16K (4000 Hex) point in RAM. 
This 1 eaves the beg inning of memory up to 16 K free for a monitor, Basic, or 
any other user defined software program. The waveform, envelope and fre 1 ” 
quency of the SB-1 are al1 defined by the user and saved in tables within 
MUS-X1. Up to eight different waveforms and eight envelopes can be saved 
for different voices anytime in the music piece. 
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2.0 USER INFORMATION 

2,1 MUS-X1 has been provided on paper tape in Intel Hex Checksum format. 
The object code on tape will load from 16K (16,384) up to almost 20K. 


2.2 Interpreter tables 

The tab 1es in MUS-X1 have been preset with the following information: 

WMEM....Waveform shape memory 
(Wl-0)....Squarewave 
(W1- 1)....Sinewave 
(Wl-2)....Trianglewave 

(W1 -3)....Fundamental plus second harmonic wave 
(W1—4) ....Half wave rectified sinewave 
(W1-5)....Full diapason 

(W1 -6)_Cel lo 

(W1-7)....Trumpet 

EMEM.... Envelope shape memory 


(El-0)... 

.Linear decay to one 

(El-1). . . 

.Linear decay to eight 

(El-2)... 

.Up and Down 

(El-3)... 

.Up, level, down 

(El-4)... 

.Accented constant level 

(El-5)... 

.Fast Decay 

(El-6)... 

.Wavering Decay 

(El-7)... 

.Moderate attack and slow decay 


NMEM....Note memory 

One octave of half-tones for the tempered scale. 

IMEM.... Inverted note memory 

One octave of the tempered scale inverted. 

CMEM....Card memory 

16 bytes per card of control data. The 1st two bytes of each table 
points to where the card is in memory and can be changed by the us¬ 
er to locate the cards somewhere else. Present card addresses: 


Card 

1 

8000 Hex 

Card 

2 

8100 

Card 

3 

8200 

Card 

4 

8300 

Card 

5 

8400 

Card 

6 

8500 

Card 

7 

8600 

Card 

8 

8700 
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.Scratch memory 

The scratch memory table is used for holding the computer 1 s stack, 
savi ng tempo, count i ng the number of mus ic cards, Savitrg mtisic 
statement points, saving repeat pointers, and saving special con¬ 
trol parameters. The two bytes labeled "Air" is the peint'er to 
where 1 the music notation will start in memory and can be changed 
by the user to any starting location in memory. Present 1y: 

A1: 5000 Hex 

2,3 Entry points to MUS-XI 

MUS-X1 has five entry points and one software exit point. 

(See 6.0, the source listing) 

Hardware timer entry points. 

4000 Hex Play Music] Be sure you have first initialized the cards. 
This entry point must be called. 

4003 Hex Initialize cards and pass in registers H&L the starting 
address of the music 1isting. This entry point must be 
called. 

4006 Hex Initia1ize cards with no H&L address passed. This entry 
point must be called. 

Software timer entry points. 

4009 Hex Play music with built-in software timer. Pass in regist¬ 
ers H&L the starting address of the music listing. 

*400C Hex P1 ay music with built-in software timer. No address is 
passed. (Address is preset to 5000H). 

Exit point 

400F Hex Exit to the user 1 s program from the software timer after 
playing music. This exit point has been preset to jump 
to itself for an endless loop. Change this jump to exit 
to your monitor, tape, or disk system's entry point. 


*...This is the main entry point for playing music (in most applications). 
Jump to this address to play mus1c. 
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3,0 COMMANDS 

3.1 Standard command table 
N=number 

Data°*several numbers separated by commas. 

Notes=gny series of pitches preceded with a + or - and separated by a 

comma, 


Command 

C 

D 

E 

F 

G 

A 

B 

number 

+ 


(FN) 

W 

H 

Q 

0 

s 

T 

X 


< 

> 

(LI) 

(LO) 

Z 
I I 
1 

Ml 

MP 

P 

PP 

(VN) 

(WO-H, Data) 


(W1 - N ) 
(W2-N) 
(Wl) 
(W2) 


Comments 


Pitch..... 

Low frequency (start of an octave) 


High frequency (end of an octave) 

P i tch Modifiers. 

One digit sets octave range. 4= middle-C 
Sharp a note 
Flat a note 

Don 1 1 sharp or flat a note 

Direct frequency control. N=0 to 254. 

Duration..... 

Whole note duration 
Ha 1f note 
Quarter note 
Eighth note (octa1) 

Sixteenth note 
Thirty-second note 
Sixty-fourth note 
Duration modifiers..... 

Adds 50% more time to duration 

Decreases note duration by 33%. Start of triplets 
End of triplets. 

Can tie durations together. 

End of tie. 

Volume levels..... 

Very loud (Forzato) 

Very intense (Fortissimo) 

Intense (Forte) 

Mediurn intense (Mezzo Forte) 

Mediurn Soft (Mezzo Piano) 

Soft (Piano) , 

Very soft (Pianissimo) 

Direct volume control. N=0 to 15. 

Waveforms. 

Save a waveform in the interpreter 1 s table. 

N=0 to 7 . Data= 32 integers, va1ue 0 to 255. 

Get a waveform and put into synthesizer. 

Put a 2nd waveform into synthesizer. 

Use waveform one. 

Use waveform two. 
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3,1 (continue) 
Command 
(EO-N, Data) 
(El-N) 

(K, Notes) 

(RN) 

(RO) 

(J) 


J 

(TN) 

(cxxxx) 

3.2 Definitions 


Comments 

Envelopes. 

Save an envelope in the interpreter 1 s table. 
N=0 to 7. Data- 16 integers, value 0 to 15- 
Get an envelope and put into synthesizer. 

Specia 1 commands. 

Automatica1ly sharp or flat the following 
notes. 

Repeat "N“ times musical passage, start pt. 
Repeat, ending point. 

Alternate exit out of the last pass of a 
repeat. 

Repeat once the following passage. 

A]ternate exit out of this repeat. 

Set the time for an envelope shape. 

Set one of the four control bits for SB-1. 


3.2.1 Pitch 

The fundamental frequency produced as related to the pure or tempered 
musical scale. In the middle octave (octave #b) , the pitch of the 

tempered scale would be: 


Note 

Frequency (pitch) 

C 

261.62 cps (cycles 

D 

293.66 cps 

E 

329.63 cps 

F 

349.23 cps 

G 

391.99 cps 

A 

440.00 cps 

B 

493.88 cps 


Note: Any one of these single letter commands will start the SB-1 pro 
dueing a sound, so be sure to set a 11 parameters (like duration 
vo1ume, waveform, tempo, etc.) you want before giving pi tch. 


3-2.2 Pitch modifier 

There are three bas i c commands that will change the pitch: 

(1) change the octave 

(2) make the note sharp or flat 

(3) direct frequency control 


Octave change 

The octave command can increase or decrease a pitch by multiples 
of two. The octave command is a one digit number from 0 to 8 
that precedes a group of notes. 

Simple example: 

3A = 220 cps 
4A = 440 cps 

kC = 261.6 cps (middle-C) 

5C = 523.2 cps 
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3*2.2 (continue) 


Half tone change 

The plus or minus signs (sharp 
increase or decrease the pitch 
Therefore: 


4E = 329*6 cps 
+E = 349*2 cps 
-E = 311*1 cps 


or 

by 


flat) preceding a note will 
about 5*95%. 


Direct control 

For direct control of the frequency to within -0.5% a special 
command is given with "F" fo11 owed by a number from 0 to 254 
al1 within parenthises. Example (FN). 

N = any integer number from 0 to 254. 

R = octave number from 0 to 8. 

Frequency = ' 20000000 

(256-N) ■(32TT 2 8~R'F 

3*2.3 Duration 

Duration is the length of time a note (pitch) is held on. The soft¬ 
ware (or hardware) timer is dividing time into 1/192 notes, therefore 
a 1/64 note is actually 3 times 1/392. The duration commands in order 
of longest time to shortest is as follows: 


W 

H 

Q 

0 

s 

T 

X 

The actual duration 


Whole note 

Hal f 

Quarter 

Eighth 

Sixteenth 

Thirty-second 

SIxty-fourth 

is relative and will 


change with the tempo. 


3*2.4 Duration modifier 

There are three bas?c commands that wi11 change the duration of a note: 

(1) a dotted note 

( 2 ) triplet notation 

( 3 ) tieing durations together 


Dotted note 

To increase the duration of a note by 50%, then follow the dura¬ 
tion character with a period. 

Example: 

Q* = 0+0 
H. * H+Q 
0. = 0+S 
H.. = H+Q+0 

The smallest duration, a 1/64 note, can not be increased by 50%. 
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3*2.4 (continue) 


Triplet notation 

Triplet notation is used when you want to play three notes in the 
time it would normally take to play two notes. The character used 
is n 11 and 18 M . 11 1 s as if the tempo* for a very short instant* 
was increased by 50% for just three notes. 

Example: 

Tempo 100 beats/min* Tempo 150 beats/m?n. 

<QCCCj“ - QCCC 


Tieing 

The capabi1ity of adding any duration time to any other is avail¬ 
able in MUS-X1. The command is (LI) for start adding durations 
and (L0) to stop this suming process. 

Example: 

H(L1)C S(L0)C = (HC) + (SC) in time 

This notation is useful in tieing duration of one note from one 
measure of music into the next measure. 

3.2.5 Tempo 

The tempo of a piece of music is like setting the speed at which the 
musi c is played. 150 beats a minute is 50% faster than 100 beats. 

9 Example notation: 

(100, 4, 4) 

(1) The first number indicates how many beats per minute (similar to 
a metronome). Range is 40 to 200 beats. 

(2) The second number indicates how many beats per musical measure. 
Range is 1 to 16. 

(3) The 1 ast number indicates which duration value for a note gets 
one beat. Range 2 to 8. 

,8 = eighth duration 

,4 = quarter duration (most common) 

,2 = ha 1f duration 

Note: Changing a piece from (100, 4, 4) to (100, 2, 2) will doub¬ 
le the speed (tempo) of the musical piece. 


3.2.6 Volume 


The vo1ume level of each SB-1 card can be set individua1ly at one of 
sixteen levels. There are two ways to change vo1ume: 

(1) notation similar to musical notation 

(2) direct control 
Musical notation 

The following letter commands can change the volume approximately 
3 DB(±30%). 


Z (+6DB) very loud 
I I (+3DB) 

I '(+0DB) 

Ml (-3DB) 

MP (-6DB) 

P (-9DB) 

PP (-12DB) very soft 


\ 


For jto sound for a set durat i on the command is "R“, this is a Rest 

in music. 
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3.2.6 (continue) 


Direct volume control 

The direct control of the volume is done by speci fying one of the 16 lev¬ 
els as fol lows: 

(VN) N= 0 (minium level) to 15 (max.) 

3.2,7. Voicing Commands 

MUS-X1 was written to allow the user to define the waveform and envelope that 
will be used by each SB-1 card. The shape (amplitude versus time) of the wave¬ 
forms and envelopes are saved in tables within MUS-X 1 for u'Se anytime in the 
music with any card. The tota1 number of shapes that can be saved in each SB-1 
card are two waveform*sets and one envelope. The tota1 number of shapes that 
can be saved in tables are eight waveforms and eight envelopes. 

The values (i nteger numbers) of the shape of the waveforms, or envelopes, are 
transfered from the music listing to a specified table at a relatively slow 
rate. Dur ing music generation, a shape can be moved from the table to the card 
at a fast rate. Be sure to define a 11 wa ve fo rms you want to use at the begin- 
ning of a musi c listing, since data transfer is s1 ower. 


waveform command 

envelope command 

table or genera 1 command number 

data (integer number) 


Voicing formats 

Bas ic notation 


W 

E 

N 

D 


Command modes 

(1) Transfer a shape from the music listing to a table within 

MUS-X1. 

Example: 


(W0-N,D,D,D,D,D,D,D,...._ D) 

f t 

I 32 or 128 data values (Integer from 0 to 255) 
table number (0 thru 7)- 
(E0- N,D,D,D,D,D,D,D, 

ft 

I 16 data va1ues (integer from 0 to 15) 
table number (0 thru 7)• 

(2) Transfer a shape from a table within MUS-X1 to a SB-1 card. 

Example: 


(Wl-N) 


Load memory one with waveform. 
N= table number 0 thru 7 


(W2-N) 


Load memory two with waveform. 


A set of waveforms equals four 32 byte waveform shapes (128 numbers). 
(See Ha rdware Manual.) 
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3.2.7 (continue) 

(El-N) Load SB-1 with an envelope shape. 

N= table number 0 thru 7* 

(3) Swi tch between two waveforms saved in the SB-1. Be sure 

you save two waveform In the two memories of the SB-1 
before you use this command. (See 3-2.7 (2)). 

Examp 1e: 

(Wl) Switch to memory one. 

(W2) Switch to memory two 

Shape encodi ng 

To give you an idea of what is meant by "Shape", here is an example: 

(1) Generate an envelope with a fast attack and a ramp decay shape and 
save it in table 6. 



Code: 

(EO-6,15,1 M3,12, 11,10,9,8,7,6,5,4,3,2,1,0) 

3.2.8 Repeat Commands 

MUS-X1 will let you repeat any passage, one measure or greater in 1 ength, up 
to 255 t i mes . There are two repeat command sets. One set is for a single 
repeat and the other set wi11 allow multiple repeats. Important, do not nest 
multiple repeats with itself or single repeats with itself. 

Single repeats 
Command set 

: Letter command for start or end of a repeated musica1 pas¬ 

sage. 

J Letter command for a jump out exit point to be used on the 

second pass through-out the measure. 

Example: 

/: / . / . / :/ 

Repeat the following four measures (/) once. 

/ • I 4 0 8 0 0 0 / o 8 oi a o / q / 

Repeat the following four measures and j ump over last measure on the last 

pass. 


3-6 




3.2.8 (continue) 


« 


Multiple repeats 
Command set 


(RN) 
(J) 

(RO) 


This command marks the start of a passage to repeat. 

N = number of repeats. 

This command marks an exit point to be used on the last 
pass of a repeat. 

This command marks the end of a passage to repeat. 


Example: 

/(R2) . . . ; (R2) . ../_./._(RO) ;. . . . (RO)/. .. 

Repeat the three measures (/) for the two SB-1 cards two more times. 

/(R6)..../._/-(J)/-(RO)/- 

Repeat the four measures for one SB-I card six times more and jump out on 
the last pass to next measure after (RO) . 


3.2.9 Key Signature 

The key-signature can be set anytime in the music. The notes that are to be 
automatically made sharp (+) or flat (-) within the music are directiy stated 

within this command. 

Example: 

(K, notes) 

(K,+F)..G Major 

(K,+F,+C) .....D Major 

(K,+F,+G,+C,+D)......E Major 

3.2.10 Special Card Control 

There are a couple of commands that are used for special control of the SB-1. . 

Envelope duration 

The duration of the envelope shape can be control separately from the 
duration of the note. The longest time is set by the screw adjustment 
at the upper right-hand edge of the SB-1 (for adj ustment see Hardware 
manual). The longest envelope time can be shortened to 1/8 its va1ue 
under computer control . Typica1 setting for the longest time is 1.2 
seconds. 

Example: 

(TN) N = number from 0 to 14. 

0..........Longest time 

1 h .....Shortest time 


3-7 





3.2.10 (continue) 


Control bits 

There are four bits in a control byte that can be set or cleared by this 
command. The command breaks down as follows: 


(CXXXX) 

Waveform memory selection. 

One shot or repeating envelope. 
Stop or start the SB-1 card. 


Examples: 

(COXXX) 

(CXXXO) 

(CXOXX) 

(COXXI) 

Manual stop command 

The music interpreter can be stopped from completing a musical tune and will 
return under user control by typing a "S" in on the console. To have this 
control, one byte must be changed in the object code (MUS-X1) to match your 
keyboard port address (see Source listing, section 6.0). Find the routine 
labeled ENTR1 near the first page of the source 1 isting. At address 4020 
Hex you will find the following code: 


Code 

Mnemonic 

DB, 

01 

IN 

KYBD 

E6, 

5F 

AN 1 

5FH 

FE, 

53 

CPI 

'S' 


The 01 Hex byte at 402.1 Hex will have to be changed to match your keyboard 
data port 1 s address if it is not port one. 


Start (turn-on) SB-1. 

Use waveform in memory 1. 

This is 1ike a (Wl) command. 

Repeat the envelope continuously. 

This command is something 1ike tremo1o. 
Use waveform in memory 2 and start SB-1. 
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4.0 WRITING MUSIC 
4.1 Sentence structure 


A music listing is a series of characters (ASCII) loaded into memory for the 
interpreter to read. To give some examples of music coding the following sym¬ 
bol s wi11 be used: 


) - carriage-return S line feed 
N - a number (integer) 


(sp) - a space 

Some rules: 

1. All music notation will be written in statement 1ines. 

2. All statement lines begin with a line number (0 to 65535) and a space. 

3. All statement 1ines end with a carriage-return. 

Example: 

N statement 1 ine information^ 

4. All 1etters are in upper case, except comments can be upper or 1ower 
case. 

5. All musica1 measures wi11 end with a slash (/). 

Example: 

N (sf5) measure information/ measure/ measure/^ 

6. All comments or titles should be within double-quotes. You cannot use 
a slash (/) or a semi-colon (;) in a comment. 

Example: 

N (sjf$) 1 'comment 11 /measure/ measure/^ 


7• Information for each SB-1 card is separated by a semi-colon within a 
measure. 

Example: 

N (sg) /Card! ; Card2; CardS; Card4/Cardl; ) 


4.2 Encoding music 


Here comes the fun part. MUSIC! 

To start out, your musical tunes may be as simple as "Mary had a little lamb", 
but as your understanding of the encoding process improves the qua 1 i ty and 
quantity of music wi11 increase. For a simple tune you must type in the tempo, 
volume level, octave number, note duration, and then the notes (pitch). 

Example: 

Coding 

1 "A MUSICAL SCALE FOR ONE OCTAVE, START WITH MIDDLE-C." 

2 (100, 4, 4) I 

3 4QC+CD+DEF+FG+GA+AB/ L 
Music symbols 



4.2 (continue) 
Music Symb ols 


Comments 




—- — - — — Known as the Treble (or G) Clef. 

The curl in the base of this 
symbol encircles the line for a 
G-note. Motes on these staff lines 
are in octaves 4 and 5» 

— — - — — Known as the Bass (or F) Clef. The 

point in the middle of the curl 
falls on the line for a F-note. 
Motes on these staff lines are 
in octaves 2 and 3* 

— - — — -A symbol like a n C n at the begin 

of a measure means Common Time 
which is four beats per measure 
with the quarter note receiving 
one beat. The beats per minute 
may vary* but the general coding 
for MUS-X1 would be: 

(100, 4, 4) 

— — — — — One half Common Time so coding 
for MUS-Xl would be: 

( 100 , 2 , 2 ) 




---■ Some of the musical tunes define 

the time-signature with numbers 
in the first measure. In MUS-X1 
coding, this would be: 

(100, 3, 4) 

!00 beats per minute Is a good 
tempo to start with, if you.do 
not know how fast the music should 
be played. 

— — — — — A sharp ( |f) or flat ( \f ) symbol at 
the beginning of a music piece with 
no note but placed at the position 
of a note means that note should 
be automatica1ly sharped or flatted 
in a song, 

MU5“”X1 coding: 

(k,+f,+c) 

Known as the key signature. 



4.2 (continue) 
Music Symbols 


Comments 






A natural (|) ss used to cancel , 
for only one measure, the auto¬ 
matic function of the key-signa¬ 
ture for a note. 

Coding: 

4CK>C 

The equals symbol (-) must: be put 
in front of every note that should 
be natural Seed in a measure* 


Octaves, The note symbol in the 
midd1e 1s ca1!ed MIdd1e-C. Every 
eighth position up the measure 
increases the pitch of a note by 
two times (or one octave). MUS-X1 
uses numbers to define an octave 
range. The coding of these three 
notes would be: 

H3C4C5C 

A tie between two notes means to 
extend the duration of the first 
note into the second note as if it 
was one note. It takes two commands 
in MUS-X1 to do this. 

Cosing: 

50 (L1) CS (t. 0) C 


FP - 


— A vo I time 1 eve! syrnbo 1 for ve ry 
quiet music. 

Cod \ ng: PP 


P 


Volume levels, Soft to loud. 
P 


mp 

MP 

-f 

Mi 

f 

I 

Sf 

1 i 


*/ - 2 


h-3 



,4.2 (continue) 
Music Symbols 


Comments 



— — Multiple notes. This would 

require three SB-1 cards to play. 
If you are only playing the 
melody then code only the very 
top note. Coding for these notes 
would be: 

40F;40A;40C 

The melody will be carried by: 

40C 
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5.0 Special Features 
5.1 Relocatable SB-1 Cards 

The Interpreter (MUS-X1) uses tables to save the parameters and the address for 
each SB-1 card. If the user wishes to move the SB-1 to another location in mem¬ 
ory, only a table value (2 bytes) has to be changed. Near the end of MUS-X1 
(6.0 source listing) are the tables for the cards called CMEM. Just change the 
first two bytes in each CHEM table to the new starting address you want for,each 
SB-1. 


5.2 Mode Selection 

The Interpreter has been set-up to run with Solid State Music's VB-IB card (Video 
Display card). The video card will display the frequency byte as a 7"bit binary 
pattern on the TV screen in time with the music for each card every 1/64 note. 

The Interpreter can a!so f1 ip over the tempered scale and octaves to play invert¬ 
ed music. These two modes can be set by changing one byte rn MUS-X1 called PASS 
(see 6.0 source listing). PASS is at address 49C2 Hex. 


PASS Code 


Comments 


00 

01 

02 

03 


This will play the music listing with no video 
display. 

This will play the music listing with a video 
display from the VB-IB. 

Play the music inverted with no video display. 
Play the music inverted with a video display from 
the VB-IB. 


5• 3 Relocate the VB-1B 

The Interpreter uses tables to set the display address for the VB-1B card. To 
move the Video card from EC00 (present address) to a new starting location change 
the following bytes to the new address (upper 8-bits only). 

Table at 4EED. 


Label 

Address 

Upper address 

GTBLl(+5) 

4EFC 

New address 

GTBL2 

4F02 

n n 

GTBL3 

4F08 

" " +256 

GTBL4 

4F0E 

11 i 1 II 

GTBL5 

4F14 

81 88 +512 

GTBL6 

4F1A 

si n n 

GTBL7 

4F20 

" " +768 

GTBL8 

4F26 

n n H 

VIDEO 

4139 

New address 


'a 


5-4 Redesignating the start of a Music File. 

MUS-X1 can be set to start interpreting a musica1 piece anywhere in memory. There 
are software entry points described in Section 2.3 which allow the user's soft- 
ware to pass on to MUS-X1 a new music address. If you would 1ike to manually set 
a new starting point, then preset "Al" (at address 49AF) with another address other 
than 5000. 
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6.0 SOURCE LISTING 



7 J7"MUS-Xr'?REVISION i. 

r 5 MUS“Xi s % REV » 0 WRITTEN BY MALCOLM T. WEIGH? 
7COPYRIGHT 1978 BY SOLID STATE MUSIC 
7 7 MODIFIED BY WALTER WHITE 12-3-77 
7 7 JMODIFIED AGAIN,M®T®WRIGHT* 1-18-77 


7MUS-XI IS AN INTERPRETER OF A SPECIAL LANGUAGE 
I USED TO ENCODE MUSIC FOR COMPUTER PROCESSINGo 
JMUS-XI HAS BEEN ADAPTED FOR DRIVING THE SB-1 
I MUSIC CARD* 

3 


d&id s a i 

LO L 

EUU 

4000H 

3 3 3 START OF MUS-Xi 

H s 0 0 

■ VIDEO 

EOU 

0F.C00H 

77 START OF VIDEO BOARD 

®0C8 

VDMP 

Eau 

0C8H 

77 VDM CONTROL PORT 

0001 

KYBD 

Lao 

I 

77 KEYBOARD DATA PORT 

8000 

CARDS 

Eau 

8000H 

77 LOCATION OF FIRST S3-1 

0008 

DELTA 

Eau 

S 

33 A FUDGE FACTOR 

000F 

FLG 

sau 

0FH 

7 7 7 DTQ,EOM & TRIPLET FLAG 
777 BITS D0&01“TRIPLET FLAG 
777 BIT D2=EGM FLAG 

777 BIT D6=DT0 FLAG 


33 IF PASS - a PLAYS NORMAL MUSIC WITH MO DISPLAY 

33 IF PASS « 1 PLAYS NORMAL MUSIC WITH DISPLAY 

33 IF PASS ® 2 PLAYS INVERTED MUSIC WITH NO DISPLAY 

fi IF PASS “ 3' PALYS INVERTED MUSIC WITH DISPLAY 

0R3 LOG 3 33 


40*30 C3I240 


4003 C39B40 


4006 G39E40 


4009 G3D645 


400C C3D945 


3 JUMP TABLE TO THE MAIM ENTRY AMD EXIT POINTSs 
7 i INTERPRET THE MUSIC FILE AMD UPDATE 

3 MUSIC CARDS TO PLAY A 1/64 DURATION? 

3 - (MUST BE "CALLED”) 

JMP ENTHI 

3 2 INITIALIZE THE MUSIC CARDS TO BE 

3 READY TO PLAY MUSIC AND PASS IN 

I M&L THE MUSIC FILE ADDRESS® 

3 CMOS? BE "CALLED”) 

JMP STRT1 

3 3 INITIALIZE CARDS * BUT NO MUSIC FILE 

7 ADDRESS IS READ FROM ML® 

7 . ' (MUST BE "CALLED") 

JMP STRTI+3 

7 4 .JUMP TO SOFTWARE TIMER ROUTINE TO 

7 PLAY MUSIC IF NO HARDWARE TIMER IS 

3 AVAILABLE® PASS MUSIC FILE’S 

7 ADDRESS IN ML® 

JMP NBRD2 

3 5 JUMP TO SOFTWARE TIMER TO PLAY MUSIC® 

3 NO MUSIC FILE ADDRESS IS PASSED® 

JMP N3RD2+3 

3 6 EXIT THE SOFTWARE TIMER TO USER’S 

7 MONITOR AFTER MUSIC IS COMPLETED® 

LOOPS JMP LOOP 


6 - ] 


400F C33F40 



;ENTER MUSIC FILE INTERPRETER AND SAVE USER'S 
JRETURN ADDRESS AND REGISTERS. 


4012 

E5 

EMTR1 i 

PUSH 

H 



4013 

210000 


LXI 

Ht 0 



4016 

39 


DAD 

SP 

;GET OLD STACK POINTER 

4017 

22A049 


SHLD 

TOPS 2 



40 1 A 

31A049 


LXI 

SP,T0PS2 


40 1 D 

D5 


PUSH 

D 



401 E 

05 


PUSH 

B 



401 F 

F5 


PUSH 

PSW 



4020 

DB01 


IN 

KYBD 

* • 

CHECK KEYBOARD FOR "S" 

4022 

E65F 


AN I 

5FH 

• • 

J J 

STRIP PARITY <& LOWER CASE 

4024 

FE53 


CPI 

'S' 

« • 

J 

STOP IF "S" TYPED 

4026 

CC3C45 


cz 

ST0P1 

• 

9 


4029 

C3F843 


BMP 

PLAY 

i GO MAKE "MUSIC" 

402C 

3AED4E 

ENTR2: 

LDA 

3PT0 

o a 
9 9 

GET 1/3 RING COUNTER 

402F 

IF 


RAR 


• • 
9 9 

BIT IN CARRY? 

4030 

32ED4E 


STA 

SPT0 

l J 

SAVE ROTATED COUNTER 

4033 

D29340 


JNC 

ENTR3 

e e 

9 9 

IF NO Ct SKIP VIDEO 

4036 

3E04 


MVI 

At 4 

t • 

J J 

RESET RING COUNTER 

4038 

32ED4E 


STA 

SPT0 

• • 

9 9 

BIT AND STORE. 

403B 

3AAD49 


LDA 

N 1 

a 9 

9 9 

NUMBER OF CARDS 

403E 

32EE4E 


STA 

SPT1 

9 • 

9 9 

PUT COPY HERE 

4041 

21CD49 


LXI 

tit CMEM+10 

;; FREQ BYTE + 2 

4044 

22F14E 


SHLD 

SPT3 



4047 

21F74E 


LXI 

Ht GTBL1 

9 9 

9 9 

START OF GRAPHIC TABLE 

404A 

22F54E 


SHLD 

SPT 5 

9 9 

9 9 

STORE IT 



;; START THE 

DISPLAY 



404D 

2AF14E 

DSP2: 

LHLD 

SPT3 

• t 

9 9 

POINT TO CTRL BYTE 

4050 

7E 


MOV 

At M 

9 9 

9 9 

GET IT 

4051 

37 


ORA 

A 

9 J 

SET SIGN FLAG 

4052 

3 £20 


MVI 

A, ' ' 

J 1 

SPACE INTO A 

4054 

E5 


PUSH 

H 



4055 

23 


DCX 

H 



4056 

23 


DCX 

H 



4057 

FA6140 


s JM 

DSP4 



405A 

7E 


MOV 

At M 



4052 

0F 


RRC 



• 

405C 

0F 


RRC 




405D 

E63F 


ANI 

3FH 

9 9 

9 9 

NORMALIZE BYTE 

405F 

F680 


ORI 

80H 

S 9 

* J 

SET GRAPHIC BIT 

4061 

D1 

DSP4 s 

POP 

D 



4062 

2AEF4E 


LHLD. 

SPT2 

a a 
9 9 

GET DELTA 

4065 

19 


DAD 

D 



4066 

22F14E 


SHLD 

SPT3 

A 9 

J 9 

UPDATE POINTER 



;; CHECK NOTE 

PATTERN FOR 

POSSIBLE UPDATE 

4069 

2AF54E 


LHLD 

• SPT 5 



406C 

BE 


CMP 

M 

« 9 

9 9 

DID NOTE CHANGE? 

406D 

77 


MOV 

M j* A 

« 9 

9 9 

SAVE NEW PATTERN 

406E 

4F 


MOV 

C $ A 



406F 

E5 


PUSH 

H 



4070 

23 


INX 

H 

9 • 

J ^ 


4071 

23 


INX 

H 

9 9 

9 9 

POINT TO "OR" MASK 


6-2 



4072 

46 


MOV 

3j M 



4073 

23 


I NX 

H 

S I 

POINT TO "AND" MASK 

4074 

7£ 


MOV 

As M 



4075 

23 


I NX 

H 

» i 

S 3 

POINT TO LOW ADDRESS 

4076 

A6 


ANA 

M 



4077 

30 


ORA 

. 8 

I 9 

COMPLETE MASKING 

4078 

5 F 


MOV 

Ej, A 



4079 

23 


1 NX 

H 

o » 

J 3 

POINT TO HIGH ADDRESS 

407A 

56 


MOV 

Dj m 



4073 

79 


MOV 

Aj> C 

m e> 

3 3 

GET PATTERN 

407C 

12 


STAX 

D 

9 « 

3 3 

DISPLAY NEW PATTERN 

407D 

1C 


INK 

E 

9 6 

3 3 

MOVE DISPLAY POINTER 

407E 

23 


DCX 

H 



407F 

73 


MOV 

Hi E 

• « 

3 3 

SAVE DISPLAY POINTER 

4080 

£1 


POP 

H 



4081 

£3 

DSP3: 

XCHG 




4082 

2rtF34E 


LHLD 

SPT4 

P 9 

3 3 

GET DELTA 

4085 

19 


DAD 

D 



4086 

22F54E 


SHLD 

SPT5 

a « 

3 3 

SAVE POINTER 

4089 

3AEE4E 


LDA 

SPT1 

o © 

9 9 

NUMBER OF CARDS 

4080 

3D 


OCR 

A 



408D 

32EE4E 


STA 

SPT1 

9 C> 

» 9 

SAVE NEW TOTAL 

4090 

L* 24 D4 0 


JNZ 

DSP2 

» 9 

9 9 

DONE YET? 

4093 

FI 

ENTH3 s 

POP 

PSW 



4094 

Cl 


POP 

a 



4095 

D1 


POP 

D 



4096 

El 


POP 

H 



4097 

F9 


SPHL 




4098 

El 


POP 

H 



4099 

F0 


El 




409A 

C9 


RET 






JMAIM 

ENTRY POINT TO START 

MUSIC IS HERE 



3 

j gall 

HERE 



4093 

22AF49 

STRT1 % 

SHLD 

A! 

I SAVE MUSIC FILE ADDR. 

409E 

E5 


PUSH 

H 

i SECOND ENTRY POINT 

409F 

210000 


LX I 

Hi 0 



40A2 

39 


DAD 

SP 



40A3 

22A049 


SHLD 

T0PS2 



40A6 

31A049 


LX I 

SPj> T0PS2 


40A9 

D5 


PUSH 

D 



40AA 

C5 


PUSH 

0 



40A3 

F5 


PUSH 

PSW 





i COPY 

THE START 

OF THE 

MUS 

IC FILE INTO THE 



S MOVING ADDRESS 

POINTER. 30 THROUGH THE 



;mus ic 

FILE AND 

SET-UP 

POINTERS FOR LINES 



* TO 3E 

INTERPRETED BY 

EACH 

MUSIC CARD IN 



JCMEM. 

SET "EOM* 

” FLAGS 

TO 

FALSE STATE. 



JSET THE MODE 3YTE IN 

EACH 

CARD AND TURN 



J OFF ALL CARDS. 

LOAD EACH 

CARD WITH A 



JSINEWAVE AND BELL SHAPE ENVELOPE. 

4 0AG 

2AAF49 

STRT2 5 

LHLD 

A1 

J GET START OF FILE 

40aF 

3E01 


MV I 

As 1 

;SERVICE CARD ONE 

4081 

32AE49 


STA 

. N 2 



4004 

1 1C349 


LX I 

Di C MEM 


4037 

CD6642 


CALL 

NNUM2 

/ELIMINATE 1ST LINE NO. 

400A 

220149 


SHLD 

A2 



4001) 

220849 


SHLD 

0REP 

a * 

9 9 

FOR COLON ROUTINE 



40C0 

CO7044 


CALL 

SETUP 

;SET-UP POINTERS 

40G3 

21G349 


LXI 

HsCMEM 


40C6 

E5 

STET3 % 

PUSH 

H 

;SAVE GMEM POINTER 

40G7 

23 


i rax 

H 


40C8 

66 


MOV 

Hj m 

JJ GET CARD'S ADDRESS 

40C9 

2EF3 


MV I 

Lj> 0F 3H 

J jPOINT TO MODE CONTROL 

40GB 

3E80 


MV I 

A» S0H 


40GD 

77 


MOV 

A 

S SET MODE BYTE 

40GE 

2B 


OCX 

H 


40CF 

77 


MOV 

M,A 

1 TURN OFF CARD 

4000 

0E80 


MV I 

Cj 80H 

i 128 BYTES 

40D2 

2E00 


MVI 

Lj> 0 


40D4 

11ED4A 


LXI 

Dj> VMEM 


40D7 

CDE143 


GALL 

TRAN 1 

;TRANSFER WAVEFORM 

40Dtt 

0 £ 1 3 


MVI 

G» 10H 

;16 BYTES 

40DG 

2EE0 


MVI 

L#0E0H 


40DE 

116D4rt 


LXI 

D,EMEM 


40E1 

GDE143 


call 

IRANI 

;TRANSFER ENVELOPE 

40E4 

El 


pop 

H 

J GET CMEM POINTER 

40E5 

£5 


PUSH 

H 


40E6 

1 10A00 


LXI 

D* 10 


40E9 

19 


DAD 

D 

;POINT TO MSCB 

40EA 

7E 


MOV 

A,» M 


40EB 

F6C0 


ORI 

0G0H 

1 SET "OFF” BIT 

40ED 

77 


MOV 

M* A 


40EE 

3AAE49 


LDA 

N2 

J GET CARD NUMBER 

40FI 

FE08 


CPI 

08H 


40F3 

GA0241 


JZ 

STRT4 

1 FIWISHED ALL CARDS? 

40F6 

3C 


I MR 

A 


40F7 

32AE49 


STA 

M2 


40FA 

El 


POP 

H 


43FB 

111000 


LXI 

Dj> 31 0H 

1 MOVE 16 PLACES AND 

40FE 

19 


DAD 

D 

JPOINT TO NEXT CARD 

40FF 

C3C640 


JMP 

STRT3 


4102 

El 

STRT4 % 

POP 

H 

; CLEAN UP STACK 

4103 

060E 


MVI 

Bj> 0EH 

J14 BYTES 

4105 

AF 


XRA 

A 

J 1 

4106 

215F4A 


LXI 

H* KMEM 


4109 

77 

STRT5: 

MOV 

M,A 

JCLEAR "KMEM" 

410A 

23 


INX 

H 


4 1 00 

05 


DGR 

B 


410C 

G20941 


JNZ 

STRT5 


410F 

3E64 ' 


MVI 

A* 64R 

J100 BEATS 

411 1 

32AA49 


STA 

T3 

1 J J 

41 14 

3E04 


MVI 

Aj. 04H 

;X/4 TIME 

4116 

32AG49 


STA . 

T5 

9 9 9 

2 9 * 

4119 

GD9245 


CALL 

TIMER 


41 AG 

3AA949 


LDA 

T2 


41 IF 

F680 


ORI 

80H 


4121 

D341 


OUT 

1010 

l TURN-ON INTERRUPT 

4123 

3E80 


MVI 

A* 80H 


4125 

32C149 


STA 

. STPFG 

1 SET FLAG TO RUN 

4128 

3AC249 


LDA 

PASS 

;; GET OPTION NUMBER 

412B 

E601 


AW I 

1 

;J CHECK LEAST SIG BIT 

41 2D 

32ED4E 


STA 

SPT0 

;;0 OR 1 INTO RING CTR 

4130 

CA2C40 


JZ 

ENTR2 

;; GO BACK TO USER IF NO VIDEO 

4133 

3E0F 


MVI 

A^0FH 

;; SET VDM TO DISPL 1ST CARD 

4135 

D3C8 


OUT 

VDMP 

;; AT TOP OF SCREEN 


4137 

2I00EC 

LXI 

H*VIDEO 


4 1 3 A 

010004 

LXI 

3*1024 

® * • 

9 9 9 

41 3D 

3620 

CL 1s MV I 

M* ’ ’ 

* * * BLANK POSITION 

413F 

23 

INX 

H 

;; NEXT DISPLAY POSITION 

4140 

08 

DCX 

B 

• * » 

9 9 9 

4141 

79 

MOV 

A* C 

0 9 9 

9 9 9 

4143 

B0 

ORA 

B 

* **FINISHED YET? 

4143 

C23D41 

JNZ 

CL1 

*•; LOOP TO BLANK NEXT POSITION 

4146 

C32C40 

JMP 

ENTR2 

* GO BACK TO USER 



*GO FIND ROUTINE FOR CHARACTER* WHILE 



JREMOVING SPACE 

S* LINE 

NUMBERS* AND REMARKS. 

4149 

CD7642 

FINDIs CALL 

NNUM4 


4 140 

CDEA43 

CALL 

REM1 


414F 

D621 

SUI 

■ i i , 

;;;NORMALIZE CODE 

4151 

DA4941 

JC 

FIND1 

*;IGNORE SPACES & CTRL CODES 

4154 

FE3A 

CPI 

•Z’-'!' 

+1 ;*;IGNORE LOWER CASE & SYMB 

4156 

D24941 

CMC 

FIND1 


4159 

E5 

PUSH 

H 

*• SAVE STATEMENT ADDR. 

415A 

216941 

LXI 

H*LOOK! 

* GET LOOK-UP TABLE 

415D 

87 

FIND2 s ADD 

A 

**• DOUBLE CODE 

415E 

4F 

MOV 

C * A 

« « 

9 9 

415F 

0600 

MV I 

3*0 

9 9 

9 9 

4161 

09 

DAD 

3 

JADD OFFSET 

4162 

7 £ 

MOV 

A*M 

* GET ROUTINE ADDR. 

4163 

23 

INX 

H 


4164 

66 

MOV 

H* M 


4165 

6F 

MOV 

L* A 


4166 

E3 

XTHL 



4167 

37 

ORA 

A 

;BE SURE CARRY IS CLEARED. 

4168 

C9 

RET 


a TRICK JUMP 



* THIS IS A TA3LE OF ADDRESSES FOR ROUTINES 



* THAT WILL INTERPRET EACH CHARACTER TYPED. 

4169 

4941 

LOOKls DW 

FIND1 

5 ! 

4 1 6 B 

4941 

DW 

FIND1 

9 " 

41 6D 

4941 

DW 

FIND1 

I# 

416F 

4,941 

DW 

FIND1 

9 <P 

9 

4171 

4941 

DW 

FINDl 

a% 

4173 

4941 

DW 

FIND1 

J& 

4175 

4941 

DW 

FINDl 

* ’ 

4177 

DD41 

DW 

FIND3 

l ( 

4179 

4941 

DW 

FINDl 

;) 

4173 

4941 

DW 

FINDl 

* * 

417D 

4941 

DW 

FINDl 

; + 

417F 

4941 

DW 

FINDl 

* * 

4181 

4941 

DW 

FINDl 

0- 

& ** 

4183 

4941 

DW 

FINDl 

$ * 

4185 

2F45 

DW 

END I 

*/ 

4187 

8443 

DW 

OCT 1 

*0 

4189 

8443 

DW 

0CT1 

; i 

4 1 83 

8443 

DW 

0CT1 

* 2 

418D 

8443 

DW 

0CT1 

* 3 

418F 

8443 

DW 

0CT1 

*4 

4191 

8443 

DW 

0CT1 

15 

4193 

8443 

DW 

0CT1 

**6 

4195 

8443 

DW 

0CT1 

17 

4197 

8443 

DW 

0CT1 

**8 

4199 

8443 

DW 

OCT 1 

19 

419B 

3D47 

DW 

COLON 

9 0® 

^ e 
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419D 

2 F45 

DW 

EMD1 

£ J* 

4 1 9F 

D847 

DW 

TRIP! 

I J < 

4 1 Al 

494 1 

DW 

FIMD1 

® am 

9 ~ 

41 A3 

0847 

DW 

TRIPS 

» 9 > 

4 1A5 

4941 

DW 

FIND! 

3 ? 

41h7 

4941 

DW 

FIND! 

J # 

41A9 

0843 

DW 

NOTES 

3 A 

4 1AB 

0843 

DW 

NOTE? 

• rj 

» a 

4 1 AD 

F942 

DW 

N0TE1 

JC 

41AF 

FG42 

DW 

N0TE2 

JD 

4 1B1 

FF42 

DW 

NOTES 

IE 

4 183 

0243 

DW 

N0TE4 

© IE* 

9 r 

41B5 

0543 

DW 

NOTES 

» G 

4187 

GA42 

DW 

DURA6 

JH 

41B9 

BD43 

DW 

WQL3 

J I 

4 183 

6E47 

DW 

JREP 

way 

$ 9 U 

4180 

4941 

DW 

FIND! 

JK 

41BF 

3G45 

DW 

STOP 1 

JL 

4 1C1 

AF43 

DW 

V0L2 

JM 

41C3 

4941 

DW 

FIND1 

;n 

4 105 

C442 

DW 

DURA4 

so 

4107 

A243 

DW 

W0L1 

IP 

4109 

C742 

DW 

DURA5 

JQ 

41GB 

7643 

DW 

ZZZl 

# ft 

4 i GO 

G 142 

DW 

DURA3 

IS 

4 IGF 

BE42 

DW 

DURA2 

IT 

4101 

4941 

DW 

FIND 1 

JU 

41D3 

4941 

DW 

FIND! 

J V 

41D5 

GF42 

DW 

DORA 7 

JW 

41D7 

8342 

■ DW 

DURAl 

8 V 9 

^ A 

4 1D9 

4941 

DW 

FIND! 

® V 

^ I 

4 1D8 

CA43 

DW 

V0L4 

J z 



;G0 FIND ROUTINE FOR CHARACTER INSIDE THE 

1 PARENTHESIS WITH A LOOK-UP TABLE. SEE 

1 "FIND 1 " ROUTINE. 

41 DO 

CD7642 

FINDSl CALL 

NN UM4 


4 1E0 

0621 

SUI 

» 1 o 

© © o 

J J 

41E2 

DADD41 ' 

G 

FINDS 


41E5 

FE3A 

GPI 

9 Z s f 9 

+ 1 j j j 

41E7 

D2DD41 

JNC 

FINDS 


41EA 

E5 

PUSH 

H 


41EB 

2 1 FI 4 l 

LXI 

H* LOOKS 


4 1 EE 

C35D41 

JMP FIND2 IUSE HALF OF FIND1 

J THIS IS A TABLE OF ADDRESSES FOR 

I ROUTINES THAT WILL INTERPET A CHAR- 
JAG TER THAT FOLLOWED A PARENTHESIS. 

41 FI 

4941 

LOOKS 3 DM 

FIND1 

j i 

41F3 

4941 

DW 

FIND1 

j ,! 

4 1 F5 

4941 

DW 

FIND! 

j # 

41F7 

494 1 

DW 

FIND1 

0 

9 & 

41F9 

4941 

DW 

FIND1 

J X 

41FB 

4941 

DW 

■ FIND! 

J 

41 FD 

4941 

DW 

FIND1 

I 0 

4 IFF 

004 1 

DW 

FINDS 

$ i 

4201 

4941 

DW 

FIND! 

1 ) 

4203 

4941 

DW 

FIND1 

1 ^ 

4205 

494 1 

DM 

FIND 1 

J * 
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4 2 j J 7 

i J U 4 1 


D W 

FINDS 

J # 

4 d ■ J 9 

4 9 4 I 


DW 

FIND! 

2 — 


9 9 a 


DW 

FIND! 

* 

J> c> 

4 2 if) jj 

4 ’J 4 :i. 


DW 

F IND1 

;/ 

42 BF 

7 7 4 5 


DW 

BEhT 1 

j 0 

4 ^ 1 1 

7 74 5 


DW 

BEAT 1 

; i 

4218 

7 7 4 5 


DW 

BEAT 1 

;2 

4215 

7 743 


DW 

BEAT 1 

J 3 

4 2 !■ 7 

7 7 4 5 


DW 

BEAT 1 

14 

42 1 9 

7 7 /? c 
** / '4 -w a 


DW 

BEAT i 

J 5 

42 IB 

7 7 4 5 


DW 

BEAT 1 

J 6 

4 2 i D 

7745 


DW 

BEAT 1 

J7 

4 2 i F 

7 79,5 


DW 

BEAT I 

J 8 

4 2 2 1 

774 5 


DW 

BEAT 1 

J 9 

422 3 

4 941 


DW 

FIMD1 

J 1 

4225 

494 l 


DW 

FIND1 

J 1 

422 I 

-4 y -s41 


DW 

FIND1 

J < 

4 2 2 9 

4 9 4 1 


DW 

FIND! 

1 ss 

422.d 

494! 


DW 

r IJM DI 

J > 

•4 2 2 0 

494 1 


DW 

FIND! 

j ; 

42 2 f 

494 1 


DW 

FIND! 

j @ 

4 2 3 & 

494 S 


DW 

FIND! 

J A B 

As d i j ■ J 

a 9 4 a 


DW 

FIND! 

JB 

4235 

554 8 


DW 

CTRL! 

1C 

4 2 aj / 

4 9 4 i 


DW 

FIND! 

ID 

4239 

0 3 4 8 


DW 

SHAPE 

JE 

4 2 3 3 

©4§4 7 


DW 

FREQ I 

JF 

44 4 7-7 

4 94 I 


DW 

FINDI 

$ b 

423F 

4941 


DW 

F1ND1 

J H 

424 1 

4 0 4 I 


DW 

FINDI 

^ i 

4 24 3 

1S4 7 


DW 

JUMP! 

j j 

4 2 4 5 

p p| /i 7 


DW 

KEYS1 

IK 

4247 

C 14 7 


DW 

LEVON 

!L 

424 9 

494 ! 


DW 

FIND! 

JM 

4 2 4 X3i 

4 9 41 


DW ■ 

FINDI 

IN 

424 D 

4-94 1 


DW 

FINDI 

JO 

424 F 

494 I 


DW 

FINDI 

;p 

425 i 

4 y 4 I 


DW 

FINDI 

;q 

4 2 5 o 

Ji Aj 6 


DW 

REPMi 

JR 

4255 

494 1 


DW 

FINDI 

J S <- 

4257 

9347 


DW 

RTIME 

JT 

4259 

4 9 41 


DW 

FINDI 

JU 

4 2 5 3 

A947 


DW 

LEVEL 

J V 

4 2 5 D 

ts 2 4 8 


DW 

WAVE 1 

JW 

42 5 F 

494 1 


DW 

FINDI 

JX 

4261 

494 I 


DW 

FIND! 

J Y 

4263 

4941 


DW 

FINDI 

« •? 

J> .L, 



JTHIS ROUTINE 

WILL EAT- 

-UP LINE NUMBERS 



JAT THE 

BEGINNING OF A 

STATEMENT STRING. 

4265 

2 3 

MNUMl % 

INX 

H 


4 2 6 6 

7 E 

MNUM2§ 

MOV 

A # M 


426 7 

CDS@42 


CALL 

' NUMB 

J FIND LINE NO. 

4 2 6A 

DA6542 


JC 

NNUMl 

JJUMP/ IF NOT FOUND 

42 6D 

d vr 

NNUM3i 

INX 

H 


426E 

7 17' 


MOV 

A» M 


42 6 F 

CD8042 


CALL 

NUMB 


42 72 

D26D42 


0 

NNUM3 

JEAT-UP LINE NO. 

42 75 

2 B 


DCX 

H 
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4276 

23 

WNUM4 s 

I NX 

H 


4277 

7E 


MOV 

A* M 


4278 

E67F 


AN I 

7FH 

///REMOVE PARITY 

42 7 A 

FE0D 


CPI 

0150 

/CARRIAGE-RETURN? 

427G 

CA6542 


JZ 

NNUM1 


427F 

C9 


RET 





/THIS ROUTINE FLAGS A 

CHARACTER IF IT IS A 



JNUMBER 




4280 

E67F 

NUMB: 

AN I 

7FH 

• to 

J £ £ 

4282 

FE30 


CPI 

9 0 s 

II/START NUMBER CHECK 

4284 

08 


RC 


/RET*IF LESS THAN ZERO 

4285 

FE3A 


CPI 

5 9* + i 

• a e 

J c* 

4287 

3F 


CMC 


/GREATER THAN NINE? 

4288 

C9 


RET 


/IF NO « * THEN NO CARRY 



;THIS ROUTINE EATS UP 

SPACES IN A LINE. 

4289 

7E 

SPACES 

MOV 

As M 


428A 

E67F 


AN I 

7FH 

* <# 

428C 

FE20 


CPI 

9 © 

///IS IT A SPACE? 

428E 

C0 


RMS 



428F 

23 


INX 

H 


4290 

C38942 


JMP 

SPACE 

/EAT ANOTHER SPACE 



;; FIND 

A NUMBER AND I 

CONVERT IT TO A BINARY 



ZZ VALU 

E BETWEEN ZERO 

,AND 255* THEN RETURN° 

4293 

23 

NRD1 s 

INX 

H 

© ® 

J £ 

4294 

7E 

NREADs 

MOV 

A* M 

ZZ GET A CHARACTER 

4295 

CD8042 


CALL 

NUMB 

// IS IT A NUMBER? 

4298 

DA9342 


C 

NRD1 

// IF NOT* TRY TO FIND 



JCHECK 

IF CHARACTER IS A NUMBER AND RETURN IF 



/NOT. I 

F A NUMBER* THEN MULTIPLY LAST RESULTS 



/BY TEN 

AND ADD 

ON NUMBER. 

429B 

0600 

DEC 1 s 

MV I 

B* 0 

/CLEAR RESULTS 

4290 

E67F 

DEC2s 

AN I 

7FH 

ZZ REMOVE PARITY 

429F 

FE3A 


CPI 

• 9’ + 1 

III CHECK IF NUMBER 

42A1 

3F 


CMC 


S 1 RETURN fwiTH CARRY Si 

42A2 

08 


RC 


// NOT A NUMBER 

4 2 A3 

FE30 


CPI 

’0’ 

/// CONTINUE NUMBER CM! 

42A5 

08 


RC 


ZZ RETURN IF NOT NUMB 

42A6 

E60F 


AN I 

0FH 

/GET NO. PART 

42A8 

32C049 


STA 

M3 

/ SAVE DIGIT 

42AB 

78 


MOV 

A* B 

/GET OLD SUM 

4 2 AC 

87 


ADD 

A 

ZX2 

42AD 

87 


ADD 

A 

ZX4 

42AE 

80 


ADD 

B 

/ X4-3-1 “X5 

42AF 

87 


ADD 

A 

1X10 

42B0 

47 


MOV 

Bs A 


42BI 

3AC049 


LDA 

M3 

/GET LSD 

42B4 

80 


ADD 

3 

/XI0+NEW DIGIT 

42B5 

47 


MOV 

3c# A 

/SAVE NEW SUM 

42B6 

23 


INX 

H 


42B7 

7E 


MOV 

As M 

1 GET NEXT CHAR. 

42B8 

C39D42 


JMP 

DECS 




/GET BINARY VALUE OF DURATION CHARACTER AND SA' 



/VALUE 

IN "CMEM” 

’ AT LOCATION "INTI”. 

42BB 

0E01 

DURA1s 

MVI 

C* l 

//ENTER HERE IF 

42BD 

0A 


DB 

0DAH 

0 0 

* * 

423E 

0E02 

DURA2: 

MVI 

0*2 

//ENTER HERE* ”1” 

42C0 

DA 


DB 

0DAH 

9 O 
£ £ 
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<4 2 G 1 

0E04 

DURA3: 

MV I 

C* a 

'W 3 ,h 4 

» © ? e c* *» 

* *5 

4) 2 W ^ 

DA 


D3 

S DAH 

J 1 

42C4 

0E08 

DURA4s 

mi 

C, 08H 

o © S8A SB 

j u 

42C6 

DA 


DB 

0 DAH 

■a ® 

J? 

42C7 

0E10 

DURA5 s 

MV I 

G„» 10H 

• • * » . ‘i » « 

J? JD 

42C9 

DA 


DB 

0DAH 

# * 

^ S 

4 20 A 

0E20 

DURA6! 

MV I 

Z» 20H 

; r’H'' 

4200 

0 3DE42 


JMP 

SKIP 

11 

42GF 

0E40 

DURA?s 

MV I 

G* 40H 

» ® r f S ? 

4? j> w 

42D1 

23 


x N X 

H 

@ 6 

42D2 

7E 


MOV 

Aj. M 

II GET CHAR FOLLOW 

42D3 

FES 7 


GPI 

’ tf • 

IIANOTHER W? 

42 D 5 

GADO 4 2 



D3LE 

0 » 

3? 

4208 

28 


DGX 

H 

0 a 

J 3 

42D9 

C3DE42 


JMP 

SKIP 

0 O 

J P 

4 2 DC 

2SE80 

DALE: 

MV I 

C, 80H 

« n» 

U* 

42DE 

4 1 

SKIP? 

MOV 

Bj? G 

9 J' 

42DF 

23 

DUSA8 t 

INX 

H 

J» J 

42E0 

7E 


MOV 

AMI 

JMEXT CHARACTER 

42E1 

FE2E 


CPI 

« S 

IIS IT A PERIOD" 

42E3 

C2EE42 


JNZ 

DURA9 

I NO 

42E6 

79 


MOV 

G 


42 E 7 

IF 


EAR 


1 J 

42E8 

4F 


MO V 

G A 

» © 

42E9 

80 


ADD 

13 

IADD-ON i/2 VALUE 

42EA 

47 


MOV 

JBU A 


42E3 

C3DF42 


JMP 

DURA8 


42EE 

2B 

DURA9s 

DGX 

H 


42EF 

E5 


PUSH 

H 

JSAVE STATEMo ADD 

42F0 

210400 


LXI 

H# 04 


42 F3 

19 


DAD 

B 

IPOINT TO "INTI" 

42 F4 

70 


MOV 

MU 3 

ISAVE DURATION 

42F5 

E1 


POP 

H 


42F6 

C34941 


JMP 

FINDi 

JMEXT CHAR» 



;CHECK 

IF A NOTE SHOULD 

BE SHARPC +1 OR 7L 



l USING 

A KEY 

SIGNATURE 

TABLE® SELECT ??, 



$ VALUE 

FROM " 

NMEM"« 


42 F9 

0E00 

NOTE !i 

MV I 

C*0 

II"IF (G) ^ENTER 

42 Fd 

DA 


DB 

0DAH 

I J 

42FG 

0E02 

NOTES 8 

MV I 

Gjs 2 

!’I "D" 

42FE 

DA 


DB 

0DAH 

0 a 
^ J* 

42 FF 

0E04 

NOTES: 

MV.I 

Gj® 4 

® © @@ tr*’®!? 

£« 

4301 

DA 


DB 

0DAK 

a a 

J* # 

4302 

0E05 

NOTEAs 

MV I 

Gj> 5 

* © 88 t s n 9 9 

33 r 

4304 

DA 


DB 

0DAH 

J J 

4305 

0E07 

NOTES ? 

MV I 

Gj» 7 

j r®G 9 ® 

4307 

DA 


DB 

3 DAH 

II 

4308 

0E09 

N0TE6 s 

MVS 

i# je 9 

11 

430A 

DA 


DB 

0DAH 

^ JP 

430S 

0E08 

NOTE?* 

MV I 

C* 1 1 

II "B" 

430D 

CD6G43 


GALL 

PUTAD 

0 <SI 

JP 3 

4310 

0600 


MV I ' 

B# 0 

3 3 

4312 

28 


OCX 

H 

ICHECK PRECEDING 

4313 

7E 


MOV 

A* M 


4314 

FE2D 


GPI 

3 a, ® 

JI FLAT? 

4316 

CA2D43 


JZ 

NOTES 


43 1 9 

10 G 


IN K 

C 


4 31A 

FE3D 


CPI 


11 NATURAL? 
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43 i C 

0 A2D4 3 


J z 

NOTES 


43 IF 

0C 


INR 

c 


4323 

FE2B 


CPI 

9 + 9 

S ISHARP? 

4322 

CA2D43 


32 

NOTES 


4325 

m 


DCR 

C 


4326 

215F4A 


LXI 

H* kmem 

;;POINT TO KEY SIGN®TABLE 

4329 

09 


DAD 

a 

& ® 

J* J> 

432A 

7E 


MOV 

A* M 


432B 

81 


ADD 

C 

IADD ON DELTA 

432C 

4F 


MOV 

G* A 


432D 

21434A 

NOTES * 

LXI 

H*NMEM 

JJ POINT TO NOTE TABLE 

4330 

3AC249 


LDA 

PASS 

33 GET OPTION NUMBER 

4333 

£602 


AMI 

2 

II WANT INVERTED MUSIC? 

4335 

CA3343 


32 

N0TE9 

II NO* USE NMEM TABLE 

4338 

2 1514A 


LXI 

H*I MEM 

II YES* USE IMEM TABLE 

433B 

09 

NO TE9 s 

DAD 

B 


433C 

7E 


MOV 

A# M 

IGET FREQUENCY 

433D 

210800 


LXI 

H# 8 

IMOVE 8 PLACES 

4340 

19 


DAD 

D 

IPOINT TO "MFRECr 

4341 

77 


MOV 

M*A 


4342 

23 


INX 

H 

9 « 

J 9 

4343 

23 


INX 

H 

11 

4344 

7E 


MOV 

A# M 

II GET MSCB 

4345 

E67F 


ANI 

7FH 

3 3 SET f'ON” BIT 

4347 

77 


MOV 

A 

I 

4348 

210400 

NOTE0i 

LXI 

H*04 


434B 

19 


DAD 

D 


434C 

7 £ 


MOV 

A* M 

I GET DURATION* ’‘INTI 50 

434D 

23 


INX 

H 


434E 

77 


MOV 

M*A 

I SAVE IN "IMT2 90 

434F 

23 


INX 

H 

IIPOINT TO TRIPLET 

4350 

23 


INX 

H 

« » 

9 » 

4351 

7E 


MOV • 

be M 

3 3 GET FLAG BYTE 

4352 

E603 


ANI 

3 

IIMASK TRIPLET COUNT 

4354 

2B 


DCX 

H 

I J 

4355 

77 


MOV 

M* A 

11 STORE TRIPLET 



;TRANSFER THREE 

BYTES. 

FROM CMEM TO THE CARD 



; BEING 

SERVICED 

. THIS ' 

WILL SET FREQUENCY* 



IVOLUME 

« OCTAVE* 

AND SPECIAL CONTROL BYTE AS 



IFAST AS POSSIBLE TO REDUCE DISCONTINUETES 



JIN THE 

CARD ’ S 

VOICING 

® 

4356 

D5 

GO : 

PUSH 

D 


4357 

2EF0 


MV I 

La 0F0H 

33 LO ADDR OF CFREB IN CARDS 

4359 

13 


INX 

D 

5 3 HI ADDR OF CFREB 

435A 

1A 


LDAX 

D 


435B 

67 


MOV 

H# A 


435C 

E5 


PUSH 

H 

11 PUT CFREB JM STACK 

435D 

210700 


LXI 

He 7 

IICALC ADDR OF MFKES 

4360 

19 


DAD 

D 


4361 

E3 


XTHL 


IICFREB IN H&L 

4362 

D1 


POP 

D ■ 

UMFREB IN D&E 

4363 

0E03 


MVI 

Cj> 3 

IITRANSFER 3 BYTES TO CARD 

4365 

CDE143 


C ADD 

TRAN! 


4368 

Di 


POP 

D 


4369 

3E04 


MVI 

A# 4 

11PASS BACK "EGM” FLAG 

436B 

C9 


RET 




5 THIS ROUTINE TAKES THE PRESENT STATEMENT'3 
;ADDRESS AND PUTS IT INTO "CMEM" OF THE GAR 


6-10 



;BEING SERVICED. 


436C 

D5 

PUTAD 

: PUSH 


D 

JSAVE CMEM ADDRESS 

436D 

13 


INX 


D 


436E 

13 


INX 


D 


436F 

EB 


XCHG 



S POINT TO STATEM. AREA 

4370 

73 


MOV 


M,£ 


4371 

23 


INX 


H 


4372 

72 


MOV 


M, D 


4373 

EB 


XCHG 




4374 

Di 


POP: 


D 


4375 

G9 


RET 






;this 

ROUTINE 

WILL TURN 

-OFF THE CARD TO 



JGENERATE A REST FOR A 

PRE-DETERMINED DURATION» 

4376 

CD6C43 

Z2Z1 : 

CALL 


PUTAD 

JEPUT ADDR. INTO CMEM 

4379 

210A00 


LXI 


Hj> 1 0 


437C 

19 


DAD 


D 

;POINT TO MSCB 

437D 

7E 


MOV 


A* M 


437E 

F680 


ORI 


80H 

J SET BIT TO "OFF" 

4380 

77 


MOV 


M, A 

i SAVE 

4381 

C34843 

© 

JMP 


NOTE0 

j;CONTINUE AT NOTES 



9 

»PUT ' 

THE OCTAVE 

NUMBER 

INTO CMEM AREA FOR THE 



; CARD 

BEING SERVICED. 


4384 

7E 

0 C T1 l 

MOV 


A* M 

S GET ASCII NUMBER 

4385 

E60F 


AN I 


0FH 

$ STRIP-OFF UPPER 4 BITS 

4387 

47 


MOV 


3j> A 


4388 

3AC249 


LDA 


PASS 

Si GET OPTION NUMBER 

4368 

E602 


AN I 


2 

S J WANT INVERTED MUSIC? 

438D 

CA9443 


JZ 


0CT2 

;; NO, SKIP SOME STMTS 

4390 

3E08 


MV I 


A ,9 8 

St YES, SUBTRACT OCTAVE 

4392 

90 


SUB 


B 

SS FROM 8 

4393 

47 


MOV 


B, A 

11 AND RETURN' TO B REG 

4394 

E5 

0CT2 % 

PUSH . 


H 


4395 

210900 


LXI 


H, 09H 


4398 

19 


DAD 


D 

JPOINT TO MVOB IN CMEM 

4399 

7E 


MOV 


A,M 


439A 

E6F0 


AN X 


0F0H 

1 REMOVE OLD OCTAVE MO. 

439C 

B0 


ORA 


B 

1ADD-ON NEW OCT® NO® 

439D 

77 


MOV 


Mj-A 


439E 

El 


POP 


H 


439F 

C34941 


JMP 


FIND1 

J GET NEXT CHARACTER 



;eead 

IN "P’V 

’M", OR "I" 

AND SET-UP VOLUME HALF 



.5OF MVOB IN CMEM. 


43A2 

CDDB43 

VO Li • 

CALL 


EQ1 

;ENTER HERE IF A "P" 

43A5 

3E20 


MV I 


A/20H 

. JPP? -12DB 

43A7 

CACC43 


J Z 


V0L5 


43AA 

3E30 


MV I 


At 30H 

IP? -9DB 

4 3 AC 

C3CC43 


JMP 


VOL5 . 


43AF 

23 

V0L2 % 

INX 


H 

JENTER HERE IF "H" 

43B0 

7E 


MOV 


At M 


43B1 

FE50 


CPI 


? p? 

• © ® 

9 » » 

43B3 

3E40 


MV I 


A, Am 

IMP? -6DB 

4335 

CACC43 


JZ 


V0L5 


43B8 

3E60 


MV I 


A, 60H 

' 1 MI? -3DB 

43BA 

C3CC43 


JMP 


V0L5 


43BD 

CDDB43 

VOL3: 

CALL 


£01 

JENTER HERE IF "I" 

43C0 

3E80 


MV I 


At 80H 

11? +0DB 

43C2 

C2CC43 


JNZ 


VOL 5 
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43C5 

3EB0 


MV I 

A,0B0H 

;II? +3DB 

43C7 

C3CC43 


JMP 

V0L5 


43CA 

3EF0 

V0L4J 

MV I 

A,0F0H 

;IF "Z",THEN *6DB 

43CC 

47 

V0L5: 

MOV 

B,A 


43CD 

E5 


PUSH 

H 


43GE 

210900 


LXI 

H, 09H 


43D1 

19 


DAD 

D 

i POINT TO MVOB IN CMEM 

4302 

7E 


MOV 

A, M 


4303 

E60F 


ANI 

0FH 

;REMOVE OLD VOLUME 

4305 

B0 


ORA 

B 

IADD-ON NEW VOLUME 

4306 

77 


MOV 

M, A 


4307 

El 


POP 

H 


43D8 

C 34941 


JMP 

FIND1 

;NEXT CHAR® 

4300 

7E 

EQ1 s 

MOV 

A, M 


4300 

23 


INX 

H 


43DD 

BE 


CMP 

M 

iPP OR II? 

43DE 

C 8 


RZ 



43DF 

2B 


OCX 

H 


43E0 

09 


RET 





;TRANSFER DATA FROM ONE LOCATION OF MEMORY 



;TO ANOTHER. 

H&L-DESTINATION ADDRESS 



JD&E = 

SOURCE ADDRESS,C= 

NO. OF BYTES TO 



;TRANSFER. 



43E1 

1A 

TRAN 1 

s LDAX 

D 

J GET DATA 

43E2 

77 


MOV 

M, A 

I PUT IT HERE 

43E3 

13 


INX 

D 


43E4 

23 


INX 

H 


43E5 

00 


DCR 

C 

JCOUNT THE BYTES 

43E6 

C2E143 


JNZ 

TRAN 1 

J JUMP FOR MORE 

43E9 

09 


RET 





i THIS 

ROUTINE 

EATS UP 

COMMENTS PUT IN THE 



;MUSIC FILE. 



43 EA 

FE22 

REM1 : 

CPI 

022H 

;"? 

43EC 

00 


RNZ 



43E0 

23 

REM2: 

INX 

H 

;START EATING CHAR® 

43EE 

7E 


MOV 

A, M 


43EF 

FE22 


CPI 

022H 


43F1 

08 


RZ 


JEND OF COMMENT® EXIT 

43F2 

FE0D 


CPI 

0DH 

100PS! 

43F4 

C2ED43 


JNZ 

REM2 


43F7 

09 


RET 





;SERVICE EACH 

CARD BY 

CHECKING THE 



;"EOM 

" FLAG. 

IF EOM IS 

SET, THEN GO 



;to the next 

CARD ELSE 

GO AN UPDATE 



;the 

CARD. IF 

ALL THE i 

CARDS ARE AT 



;eom 

THEN MOVE STATEMENT POINTERS FOR 



J EACH 

CARD TO 

THE NEXT 

MEASURE. 

43F8 

0600 

PLAYs 

MVI 

B, 0 

,*CLEAR EOM ACC. 

43FA 

3E01 


MV I 

A, 1 


43FC 

32AE49 


STA 

N2 

JSTART WITH CRD 1 

43FF 

4F 


MOV 

G , A 


4400 

1 1C349 


LXI 

' D,CMEM 


4403 

210700 

NXTCD 

i LXI 

H, 7 


4406 

19 


DAD 

D 

,*POINT TO EOM BYTE 

4407 

7 E 


MOV 

A, M 

;gET EOM 

4408 

E604 


ANI 

4 

• • 

440A 

CA4F44 


JZ 

OREOM 

JJUMP IF EOM 
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;CHECK IF INTERRUPT COUNTER REGISTER 
IIS ZERO YET. IF THE COUNTER IS ZERO 




;THEN CHECK " 

DTO" FLAG . 

AND TURN-OFF CARD.. 

' 


1IF THE FLAG 

IS CORRECT 

. ALSOj 1F COUNTER 



;IS ZERO t THEN 

INTERPRET 

NEXT CHARACTER. 

4400 

79 

NEOM: MOV 

A> C 

© » 

3 3 

440E 

32BC49 

STA 

B1 

II SAVE CARD COUNTER 

4411 

78 

MOV 

A i3 

• • 

3 3 

4412 

323D49 

STA 

B2 

1;SAVE EOM ACCOM® 

4415 

7E 

MOV 

A.M 

1 J GET TRIPLET FLAGS 

4416 

2B 

OCX 

H 

II POINT TO TRIPLET ' 

4417 

35 

OCR 

M 

SS AND DECREMS 

4418 

C24A44 

JNZ 

C0NT2 

S /CONTINUE IF NOT Z 

44 IB 

E603 

ANI 

3 

J J MASK 2 TRIPLET BI 

44 ID 

77 

MOV 

Ms A 

SS AND STORE I 

44 1E 

23 

OCX 

H 

IPO I NT TO INTERRUPT 

44 IF 

35 

OCR 

M 

JCHECK COUNT 

4420 

C24A44 

JNZ 

C0NT2 

INOT DONE YET? 

4423 

34 

INR 

M 


4424 

23 

INX 

H 

Si POINT TO TRIPLET 

4425 

3601 

■ MV I 

1 

« © 

3 3 

4427 

23 

INX 

H 

SS POINT TO FLAG BYT 

4428 

7E 

MOV 

A,M 

SS GET FLAG 

4429 

E640 

ANI 

40H 

II TEST DTO BIT 

442B 

C23E44 

JNZ 

CONTI 

1 DON'T TURN-OFFCDTO 

442E 

210A00 

LXI 

Us 10 


4431 

19 

DAD 

D 

IPOINT TO MSCB 

4432 

7E 

MOV 

A,M 


4433 

F680 

ORI 

80H 

1 SET "OFF” BIT 

4435 

77 

MOV 

M,» A 

1UPDATE CMEM 

4436 

05 

PUSH 

D 

1 SAVE CMEM POINTER, 

4437 

EB 

XCHG 



4438 

1 EF2 

MV I 

E/0F2H 

IILO ADDR OF GSCB 

443A 

23 

' INX 

H 


443B 

56 

MOV 

Dj> M 

IIHI ADDR OF CSC3 

443C 

12 

STAX 

D 

IITU^N-OFF CARD 

443D 

D1 

POP 

D 

443E 

05 

CONTI: PUSH 

D 


443F 

EB 

XCHG 



4440 

23 

INX 

H 


4441 

23 

INX 

H 


4442 

5E 

MOV 

Ej> M 


4443 

23 

INX 

H 


4444 

56 

MOV 

Dj. M 

S GET STATEM. PNTH 

4445 

EB 

XCHG 



4446 

01 

POP 

D 




>NOW INTERPRET STATEMENT WITH D&E-CMEM 


* 

;ADDRESS AND 

H<&L=STATEMENT ADDRESS. 

4447 

CD4941 

GALL 

FIND1 




;BE SURE TO PASS BACK EOM IN REGISTER-A 

IAND CMEM ADDRESS IN D&E» 

444A 

2ABC49 

C0NT2: LHLD 

B1 


4440 

40 

MOV 

C/L 


444E 

44 

MOV 

3* H 


444F 

B0 

OREO Ms ORA 

B 

1 COMBINE EOM BYTES 

4450 

47 

MOV 

Bj A 


4451 

3AAD49 

LDA 

N 1 


4454 

B9 

CMP 

C 

1 LAST CARD' YET? 
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4455 

CA6544 


JZ 

CKEOM 

;FINISHED ALL CARDS? 

4458 

00 


I MR 

C 

JNEXT CARD 

4459 

79 


MOV 

Aj> C 


44 5A 

32AE49 


ST A 

N2 

n 

445D 

211000 


LX1 

H, 16 


4460 

19 


DAD 

D 

JMOVE POINTER IN CMEM 

4461 

E3 


XCHG 


1 UPDATE D&E 

4462 

030344 


JMP 

NXTCD 


4465 

04 

CKEGMs 

INR 

B 


4466 

05 


DOR 

B 

JALL CARDS • EOM? 

4467 

C22C40 


JNZ 

ENTR2 


446A 

CD7044 


CALL 

SETUP 

JSET PNTR FOR MEXT MEAS. 

446D 

C3F843 


JMP 

PLAY 




j ;this 

ROUTINE 

CLEARS ALL 8 EOM FLAG S ® 

4470 

1 11000 

SETUP: 

LX I 

0,16 

UADDS 16 TO EQM pointer 

4473 

010408 


LXI 

B,0804H JIB IS CARD GTE, C IS MASK 

44 76 

21CA49 


LX I 

. H,CMEM+7U POINTS TO 1ST EOM FLAG 

4479 

7E 

SET 1 : 

MOV 

A# M 

® <s> 

$ 

447A 

31 


ORA 

c 

® 9 
» * 

447B 

77 


MOV 

M, A 

S S SAVE CLEARED EOM FLAG 

44 7C 

19 


DAD 

D 

JJPOINT TO NEXT FLAG 

447D 

05 


DOR 

B 

US CARDS YET? 

447E 

027944 


JNZ 

SET 1 

;;IF NOT, LOOP 



JTHXS 

ROUTINE WILL SET 

THE STATEMENT ADDR 



S FOR EACH CARD 

AND PUT 

THIS ADDR INTO GMEMo 

4481 

2AB149 


LHLD 

A2 

S GET MOVING PNTR 

4484 

EB 


XCHG 


1J PUT IN ME 

4485 

210549 


LXI 

H,CMEM+2U POINT TO 1ST C MEM 

4488 

010F00 


LXI 

J3j0 FH 

UADDER FOR OMSK PNTR 

448B 

3E01 


MV I 

A 3 I 

UFIRST CARD 

448D 

32AD49 

SET2 s 

STA 

■ Ml 

IISAVE CARD GTE 

4490 

73 


MOV 

M*E 

1;SAVE STMT ADDR IN GMEM 

4491 

23 


INX 

H 

« 

£ 

4492 

72 


MOV 

M,D 

® @ 

4493 

09 


DAD 

B 

IIPOINT TO NEXT CMEM 

4494 

13 

SETS: 

I MX 

D 

IIPOINT TO NEXT CHAR 

4495 

1A 


LDAX 

D 

II GET NEXT CHAR 

4496 

E67F 


AW I 

7FH 

9 ® 

4498 

FE2F 


CPI 

V* 

33 END OF MEASURE? 

44 9A 

CAB244 


JZ 

SET 6 

11 YES,QUIT 

449D 

FE3B 


CPI 

9 j * 

1 END OF CARD'S CODING? 

449F 

029444 


JNZ 

SET3 

UNO, LOOP 

44A2 

3AAD49 

SET4: 

LDA 

Ni 

11 GET CARD COUNTER 

44A5 

30 


INR 

A 

IIADD ONE 

44A6 

FE09 


CPI 

9 

UMQRE THEN 8 CARDS? 

44A8 

C28D44 


JNZ 

SET2 

UNO,GO SAVE STMT POINTER 

44AB 

13 

SETS: 

INX 

D 

UPOINT TO NEXT CHAR 

4 4 AC 

IA 


LDAX 

D 

% 1 GET CHARACTER 

44AD 

FE2F 


CPI 

3 / t 

I $ END OF MEASURE YET? 

44AF 

C2AB44 


JNZ 

SETS 

UNO, LOOP 

44B2 

EB 

SET6 8 

XCHG 


UEND OF MEASURE SO STORE 

4453 

22B149 


SHLD 

• A2 

J SAVE NEW MOVING PNTR 

44B6 

110349 


LXI 

D,CMEM 


44B9 

2AC549 


LHLD 

CMEM+2 

1 GET 1ST STATEMENT ADDR® 

44BC 

3E01 


MV I 

A# i 


44BE 

32AE49 


STA 

M2 

1 FIRSI CARD PLEASE 

44C1 

3AC249 


LDA 

PASS 

U GET OPTION NUMBER 

4404 

E601 


AMI 

1 

U CHECK LEAST SIG BIT 


6-14 




44C6 

C8 

RZ 


33 RETURN IF NO VIDEO 



33 START OF NEW MEASURE, 

SO CLEAR THE SCREEN AND 



33 INITIALIZE 

POINTERS TO 

BEGINNING OF EACH LINE- 

44 C 7 

G5 

PUSH 

B 

e a 

9 9 

44C8 

05 

PUSH 

D 

© ® 

44C9 

E5 

PUSH 

H 

1 1 

44CA 

AF 

xra' 

A 

;% PUT 0 IN A. 



LXI 

H,VIDEO 

IS H HAS ADDRESS OF 1ST VIDEO ! 

44CB 

2100EC 




44CE 

118000 

LXI 

D, 80H 

33 ADD 64 FOR NEXT VIDEO LINE 

4401 

32F74E 

STA 

GTBL1 

S3 STORE FREQUENCY BYTE 

4404 

22FB4E 

SHLD 

. GTBL1+4 

33 STORE DISPLAY POINTER 

4407 

19 

DAD 

D 

® » 

9 9 

4408 

32FD4E 

STA 

GTBL2 


44DS 

22014F 

SHLD 

GT8L2+4 


44DE 

19 

DAD 

D 


44DF 

32034F 

STA 

GTBL3 


44E2 

22074F 

SHLD 

GTBL3-S-4 


44E5 

19 

DAD 

D 


44E6 

32094F 

STA 

GTBL4 


44E9 

220D4F 

SHLD 

GTBL4+4 


44EC 

19 

DAD 

D 


44ED 

320F4F 

STA 

GTBL5 


44F0 

22134F 

SHLD 

GTBL5+4 


44F3 

19 

DAD 

D 


44F4 

32154F 

STA 

GTBL6 


44F7 

22194F 

SHLD 

GTBL6+4 


44 FA 

19 

DAD 

D 


44FB 

321B4F 

STA 

GTBL7 


44FE 

221F4F 

SHLD 

GTBL7+4 


4501 

19 

DAD 

D 


4502 

32214F 

STA 

GTBL8 


4505 

22254F 

SHLD 

GTBL8+4 




Si CLEAR ONLY 

THE LINES USED 

4508 

0E08 

MV I 

C, 8 

338 LINES 

450A 

11F54E 

LXI 

D,GTBL1 - 

■2 

4500 

210600 

MEAS2: LXI 

H, 6 


4510 

19 

DAD 

D 

ii POINT TO GTBL!"S POINTER 

451 1 

50 

MOV 

E,L 


4512 

54 

MOV 

D,H 


4513 

7E 

MOV 

A, M 


4514 

23 

XNX 

H 


4515 

66 

MOV 

H, M 


4516 

6F 

MOV 

L, A 


4517 

0610 

MV I 

B, 1 6 


4519 

3 £20 

MV I 

A, 8 9 

;; SPACE INTO REG-"A 

451B 

77 

MEAS3 % MOV 

M, A 

3 3FI LL 4 CONSECUTIVE MEMORY 

451C 

23 

INX 

H 

;; LOCATIONS WITH SPACES 

4510 

77 

MOV 

M, A 


451E 

23 

INX 

H 


451 F 

77 

MOV 

M, A 


4520 

23 

INX 

■ H 


4521 

77 

MOV 

M, A 


4522 

23 

INX 

H 


4523 

05 

OCR 

B 

11 DO 16 TIMES TO CLEAR EACH 

4524 

C21B45 

JNZ 

MEAS3 

33 LINE. 

4527 

00 

DCR 

C 

33 FINISHED ALL USED LINES? 
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4528 

C20D45 


JM L 


MEAS2 


4520 

El 


POP 


H 


452C 

D1 


POP 


D 


452D 

Cl 


POP 


B 


452E 

C9 


RET 






iFOUND 

THE END 

OF A MEASURE FOR THE MUSIC 



1 CARD 

BEING ; 

SERVICED. 

SET FLAGS. 

452F 

CD6G43 

END 1 : 

CALL 


PUT AD 


4532 

210700 


LX I 


H* 7 

* ® 

J ^ 

4535 

19 


DAD 


D 

i POINT TO EOM 

4536 

7E 


MOV 


A* M 


4537 

E6F3 


AN I 


0FBH 

I}SET EOM FLAG 

4539 

77 


MOV 


M* A 

J PUT BACK 

453A 

AF 


XRA 


A 

J PASS ON EOM FLAG 

4533 

C9 


RET 






; FOUND 

THE END 

OF THE MUSIC FILE. TURN 



IOFF ALL THE 

MUSIC CARDS* SET EOM-0FH* 



$ SET DTO *0* 

SET 

' INTERRUPT COUNT 55 1 * SET 



1 STOP 

FLAG-0 

AND TURN OFF INTERRUPT. 

453C 

CD6C43 

STOP!; 

CALL 


PUTAD 

IPO INI TO "SI" 

453F 

0605 


MV I 


3* 08 

ICHG 8 AREAS OF CMEM 

4541 

1 1C349 


LXI 


D* CMEM 


4544 

210400 

ST0P2: 

LXI 


Hj> 04 


4547 

19 


DAD 


D 

1POINT TO INTI 

4548 

3601 


MV I 


M* 1 


454A 

23 


INX 


H 

1 POINT TO INT2 

4543 

3601 


MVI 


M* 1 


454D 

2 3 


INX 


H 

II POINT TO TRIPLET 1 CTR 

454E 

3603 


MVI 


M* 3 

II STORE NOT TRIPLET COUNT 

4550 

23 


INX 


H 

IIDTO/EOM TRIPLET FLAG 

4551 

360F ■ 


MVI 


M* 0FH 


4553 

210A00 


LXI 


H* 10 


4556 

19 


DAD 


D 


4557 

7E 


MOV 


A* M 

1 GET MSCB BYTE 

4558 

F680 


ORI 


80H 


455A 

77 


MOV 


M* A 

1UPDATE CMEM 

455B 

CD5643 


CALL 


GO 

1TURN-OFF CARD 

455E 

211000 


LXI 


H* 10H 


4561 

19 


DAD 


D 

INEXT CMEM AREA 

4562 

EB 


XCHG 




4563 

05 


DCR 


B 

IALL -CMEM? - 

4564 

C24445 


JNZ 


ST0P2 


4567 

3E00 


MVI 


A* 0 

1 SET STPFG-STOP 

4569 

32C149 


STA 


STPFG 


456C 

D341 


OUT 


1010 

;TURN-OFF INTERRUPT 

456E 

El 


POP 


H 

1 CLEAR STACK 

456F 

FI 


POP 


PSW 


4570 

Cl 


POP 


B 


4571 

D1 


POP 


D 


4572 

El 


POP 


H 


4573 

F9 


SPHL 




4574 

Ei 


POP 


• H 


4575 

F3 


DI 




4576 

C9 


RET 






; READ 

IN BEATS/MIN. AND 

TIME SIGNATURE 



J THEN 

LOAD TIMER ROUTINECOR CIRCUIT). 

4577 

CD9442 

BEAT !$ 

CALL 


NREAD 

1 CONVERT BEATS TO BINARY 

457A 

78 


MOV 


A*? 3 
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4573 

32AA49 


STA 

T3 

;33 SAVE BEATS 

457E 

7E 


MOV 

A#M 


457F 

FE2C 


CPI 

* 9 * 

;33 MORE NUMBERS? 

4581 

C29245 


JN Z 

TIMER 

• mm 

t 2 * 

4584 

CD9442 


CALL 

N READ 

;;;3Eats per measure 

4587 

78 


MOV 

A,B 

• « • 

* f » 

4588 

32AS49 


STA 

T4 

* m • 

9 9 2 

4588 

CD9442 


CALL 

NREAD 

;; jdtjration for beat 

458E 

78 


MOV 

A,B 

9 ® 9 

9 2 2 

458F 

32AC49 


STA 

75 

9 9 9 

9 9 2 



JUSING 

THE NUMBER IN ”T5 

AND 



;the number of 

BEATS IN 

"T3"# COMPUTE 



;a binary value that will SET THE SOFT¬ 



WARE (OR CIRCUIT) AT THE RIGHT TEMPO. 

4592 

3AAA49 

TIMER: 

LDA 

T3 

J GET BEATS 

4595 

E6FE 


AN I 

0FEH 

3 3 3 EVEN NUMBERS ONLY. 

4597 

D628 


SUI 

40 

;subtract 40 

4599 

D5 ' 


PUSH 

D 


459A 

E5 


PUSH 

H 


459B 

5F 


MOV 

E g A 


459C 

1600 


MV I 

D,0 


459E 

210F46 


LXI 

HsBMEM 

JPOINT TO BEAT MEMORY 

45A1 

19 


DAD 

D 


45A2 

5E 


MOV 

E#M 

3 LSB OF VALUE 

45A3 

23 


INX 

H 


45A4 

56 


MOV 

Dj> M 

3 MSB OF VALUE 

45A5 

63 


MOV 

ht E 


45A6 

62 


MOV 

H# D 


45A7 

3AAC49 


LDA 

T5 

;;;note duration per beat 

45AA 

3D 

TIM1 : 

DCR 

A 

9 a 

9 9 

4 SAB 

CAB245 


JZ 

TIM2 


45AE 

19 


DAD 

D 

3 INCREASE VALUE BY 3 

45AF 

C3AA45 


JMP 

TIM1 




;*••••• 

LOAD--- 

-FOR HARDWARE TIMER#SWLD1---- 



J FOR SOFTWARE 

TIMER. 


45B2 

CDBB45 

TI M2 : 

CALL 

SWLDl 

3* LOAD TIMER 

4585 

El 


POP 

H 


45B6 

D1 


POP 

D 


45B7 

2B 


OCX 

H 

9 2 2 

4538 

C3DD41 


JMP 

FIND3 

e • a 

9 2 9 



1 SOFTWARE TIMER LOAD ROUTINE. TAKE TIMER'S 



3 VALUE 

IN H&L 

REGISTERS 

AND DIVIDE BY FOUR 



;to correct for the differences in timing 



JBETWEEN HARDWARE(5 MICRO-S) VS SOFTWARE 



3 (20 MICRO-S). 



45BB 

0602 

SWLD1s 

MV I 

B# 2 


45B0 

AF 

SWLD2: 

XRA 

A 

;CLEAR CARRY FLAG 

45BE 

7C 

) 

MOV 

Aj H 


45BF 

IF 


RAR 



45C0 

67 


MOV 

H# A 


45C 1 

7D 


MOV 

A# L 


45C2 

IF 


RAR 



45C3 

6F 


MOV 

A 


45C4 

05 


DCR 

B 


45C5 

C2BD45 


JN Z 

SWLD2 

Is 



JGENERATE 2’S 

COMPLEMENT OF -VALUE 
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45C8 

7D 

MOV 

A, L 

45G9 

2F 

CMA 


45CA 

6F 

MOV 

L & A 

45CB 

7C 

MOV 

A, H 

45CC 

2F 

CMA 


45CD 

67 

MOV 

H, A 

45CE 

23 

INX 

H /COMPLEMENT 


, 

/SAVE NEW TIMER 

VALUE 

45CF 

22A849 

SHLD 

T! 

45D2 

C9 

RET 




/THIS TIMER WILL SUPPORT THE MUSIC ROUTINE 


/IF YOU DON 9 ! HAVE AN INTERRUPT TIMER CARD 
/ACCURACY IS FAIR TO GOOD, DUE TO VARIABLE 
/TIME IN INTERPETING THE MUSIC LANGUAGE. 


45D3 

3IA649 

NBRD1 % 

LX I 

SP,TSTK 


45D6 

22AF49 

NBRD2: 

SHLD 

A1 

/SAVE FILE ADDRESS 

45D9 

CD9E40 


CALL 

STRT1+3 

/SET“UP CARDS 

45DC 

2AA849 

NBRD3 l 

LHLD 

T1 

/GET TIME VALUE 

45DF 

110800 


LXI 

D,DELTA 

IA FUDGE FACTOR 

45E2 

19 


DAD 

D 


45E3 

CDF345 


CALL 

STIMI 

/WASTE TIME 

45E6 

CD1240 


CALL 

ENTR1 

I CALL MUSIC 

45E9 

3ACI49 


LDA 

STPFG 

1CHECK STOP FLAG 

45EC 

B7 


ORA 

A 

1 ZERO? 

45ED 

C2DC45 


JNZ 

NBRD 3 

JREPEAT 

45F0 

C30F40 

NBRD4 8 

JMP 

LOOP 

/END. LOOP FOREVER 

45F3 

AF 

STIMI5 

XRA 

A 


45F4 

110100 


LXI 

Os 1 



/J STIM2 TAKES 20 MICROSECONDS PER CYCLE* 
//THE ROUTINE IS WRITTEN FOR' 0 WAIT STATES 
//BUT THE COMMENTS SHOW HOW TO CHANGE THE 
//ROUTINE TO 1 OR 2 WAIT STATES. 


4SF7 

19 

STIM2s DAD 

D 

//1W DAD D 2W DAD D 

45F8 

00 

NOP 


II NOP NOP 

45F9 

00 

NOP 


// NOP NOP 

45FA 

00 

NOP 


Jl MOV A,B JNG STIM2 

45FB 

00 

NOP 


// JNC STI M2 NOP 

45FC 

00 

NOP 


1/ NOP NOP 

45FD 

D2F745 

UNO 

ST I M2 

IZ NOP NOP 

4600 

09 

RET 


/ / RET RET 



/LOAD SCRATCH 

MEMORY WITH TIMER VALUE FROM 



/ H&L . TRANSFER 

VALUE TO 

HARDWARE CARD. 

4601 

22A849 

LOADS SHLD 

T1 

/SAVE NEW TIME 

4604 

7C 

MOV 

A, H 

J1/2 OF NEW TIME 

4605 

F680 

ORX 

8011 

/SET MSB®1 

4607 

67 

MOV 

H, A 


4608 

7D 

MOV 

As L 


4609 

D340 

OUT 

100Q 

/LOAD 1/2 OF TIME 

460B 

7C 

MOV 

As H 


460C 

D341 

OUT 

1018 

/LOAD 1/2 OF TIME 

460E 

09 

RET 





/THIS TABLE DEFINES ALL 

THE CONSTANTS NEEDED 



/FOR TEMPOS FROM 40 TO 

200 BEATS A MINUTE. 

460F 

5307 

BMEMs DW 

18 75D 

1140 BEATS 

4611 

D005 

DW 

1488D 

1/42 

4613 

8D05 

DW 

142 ID 

1 $ 44 

4615 

4F05 

DW 

1359D 

J 14 6 

4617 

1605 

DW 

1302D 

J 14 8 
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4619 

£234 

DV7 

1250D 

1150 

4613 

3204 

DW 

1202D 

i 152 

461D 

8504 

DW 

1 157D 

1154 

461F 

5C04 

DW 

11 16D 

1156 

4621 

3604 

DW 

1078D 

1158 

4623 

1204 

DW 

1042D 

11 60 

4625 

F003 

DW 

1008D 

* ® dC O 

o<& 

4627 

Dl 03 

DW 

97 7D 

11 64 

4629 

3303 

DW 

947D 

1166 

4623 

9703 

DW 

919D 

1168 

462D 

7D03 

DW 

893D 

1170 

462F 

6403 

DW 

868D 

1172 

4631 

4D03 

DU 

84 5D 

11 74 

4633 

3603 

DW 

822D 

J> J) f O 

4635 

2103 

DW 

80 ID 

1178 

4637 

0D03 

DW 

781D 

1180 

4639 

FA02 

DW 

762D 

11 82 

463a 

E802 

DW 

744D 

11 84 

463D 

D702 

DW 

727D 

1186 

463F 

C602 

DW 

710D 

1188 

4641 

3602 

DW 

694D 

1190 

4643 

A702 

DW 

679D 

1192 

4645 

9902 

DW 

6650 

11 94 

4647 

8302 

DW 

651D 

1196 

4649 

7E02 

DW 

638D 

11 98 

4643 

7102 

DW 

625D 

11 100 

464D 

6502 

DW 

61 3D 

11 102 

464F 

5902 

DW 

601D 

11 1 04 

4651 

4E02 

DW 

590D 

11106 

4653 

4302 

DW 

5790 

11108 

4655 

3802 

DW 

568D 

11 1 1 0 

4657 

2E02 

DW 

558D 

11112 

4659 

2402 

DW 

54 SD 

11114 

4653 

1302 

DW 

539D 

11 1 1 6 

465D 

1202 

DW 

530D 

11 1 1 8 

465F 

0902 

DW 

52 ID 

11 120 

4661 

0002 

DW 

512D 

11122 

4663 

F801 

DW 

504D 

11 1 24 

4665 

F00 1 

DW 

496D 

J 1 126 

4667 

E801 

DW 

488D 

® ® 9 O Q 
9 9 l GO 

4669 

El 0 1 

DW 

48 ID 

11130 

4663 

0901 

DW 

4 7 3D 

J* 1 OA 

466D 

020 1 

DW 

466D 

11 1 34 

466F 

CC01 

DW 

460D 

11 1 3 6 

4671 

C501 

DW 

453D 

11 138 

4673 

BE01 

DW 

44 6 D 

11 140 

4675 

B801 

DW 

440D 

11142 

4677 

B201 

DW 

434D 

11 144 

4679 

AC01 

DW 

428D 

11 146 

4673 

A601 

DW 

422D 

11 14 8 

467D 

A1 0 1 

DW 

417D 

11 1 50 

467F 

9301 

DW 

41 ID 

11 152 

4681 

9601 

DW 

406D 

11 1 54 

4683 

9101 

DW 

40 ID 

11 156 

4685 

8C01 

DW 

396D 

11 158 

4687 

8701 

DW 

39 1D 

11 160 

4689 

8201 

DW 

386D 

11 162 

468B 

7001 

DW 

38 ID 

11 1 64 
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468D 

7901 


DW 

377D 


3 J 166 

468F 

74 01 


DW 

372D 


3 3 1 68 

469 i 

7001 


DW 

368D 


J 11 70 

4693 

6B01 


DW 

363D 


S3 172 

4695 

6701 


DW 

359D 


;; 174 

4697 

6331 


DW 

355D 


3 3 176 

4699 

5F01 


DW 

35 ID 


3 3 178 

469B 

5B01 


DW 

34 7D 


;; 180 

469D 

5701 


DW 

343D 


3 3 182, 

469F 

5401 


DW 

340D 


3 3 I 84 

46A1 

5001 


DW 

336D 


3 3 1 86 

46A3 

4001 


DW 

332D 


11188 

46A5 

4901 


DW 

329D 


S3 1 90 

46A7 

4601 


DW 

326D 


3 3 192 

46A9 

4201 


DW 

322D 


3 3 194 

46AB 

3F01 


DW 

319D 


3 3 196 

4 6 AD 

3001 


DW 

316D 


3 3 198 

46AF 

3901 


DW 

3 13D 


; ;200 



3 THI £ 

ROUTINE 

WILL READ 

THE NUMBER AFTER A 



3 REPEAT CHARACTER AND 

DETERMINE IF IT IS 



J THE BEGINNING 

OR END 

OF A MUSICAL PASSAGE 



JUNDER 

. REPEAT 

CONTROL. 



46B1 

CD9442 

REPM1i 

OAlrfLi 

N READ 


1 LOOK FOR NUMBER 

46B4 

AF 


XRA 

A 


3 SET A=0 

46B5 

as 


CMP 

B 



46B6 

CAE146 

« 

J 

REPM3 


;END OF REPEAT CMD? 



;SERVICE THE START OF 

A 

REPEAT COMMAND. 



1NOTES 

THIS PIECE OF 

AS 

iSEMBLY CODE WAS ADDED 



;to make sure 

THE NUMBER OF REPEATS ARE THE 



3 SAME 

9 

FOR EACH 

OF THE 

CARDS. 

4639 

E5 

» 

PUSH 

H 


9 & •» 

J 9 J 1 

46BA 

D5 


PUSH 

D 


® o • 

3 9 9 

46BB 

0E08 


MV I 

C*8 


3 UPDATE 8 CARDS 

463D 

04 


INR 

B 


;CORRECT REPEAT NO. 

46BE 

21CE49 


LXI 

Hj> CMEM+ 1 1J POINT TO REPN 

46C 1 

70 

REPM6s 

MOV 




46C2 

111000 


LXI 

D* 10H 



4605 

19 


DAD 

D 


J NEXT REPN IN CMEM 

46C6 

0D 


DOR 

C 


3 DONE YET? 

4607 

C2C146 


JNZ 

REPM6 



46CA 

Di 


POP 

D 



46CB 

El 


POP 

H 


& *> © 

* 9 £ 

4600 

EB 


XCHG 



© e © 

* * 

46CD 

E5 


PUSH 

H 


© « 

^ # J* 

46CE 

010000 


LXI 

12 



46D1 

09 


DAD 

B 


JPOINT TO REPS IN CMEM 

46D2 

73 


MOV 

Ms E 



46D3 

23 


INX 

H 



4 6D4 

72 


MOV 

Mj> d 



46D5 

2A3149 


LHLD 

' A2 


J GET MOVING POINTER 

46D8 

22B349 


SHLD 

A3 


;SAVE NEXT MEASURE ADDR 

46DB 

El 


POP 

H 



46DC 

EB 


XCHG 




46DD 

2 B 


DCX 

H 



46DE 

C34941 


JMP 

FIND! 


J NEXT CMD PLEASE 
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SERVICE THE END-0F-REPEAT COMMAND 


s 


4 6E1 

E5 

REPM3: 

PUSH 

H 

© * 

46E2 

D5 


PUSH' 

D 


4 6E3 

EB 


XCHG 



46E4 

0 1 0E00 


LXI 

B/ 14 


46E7 

09 


DAD 

B 

iPOINT TO REPE IN CMEM 

46E8 

73 


MOV 

M/ E 

• 

46E9 

23 


I NX 

H 


46EA 

72 


MOV 

M 3 D 


46EB 

D1 


POP 

D 


46EC 

2AB149 


LHLD 

A2 


46EF 

22B549 


SHLD 

A4 

;SAVE END OF REPEAT 

46F2 

2I0B00 


LXI 

H, 1 1 


46F5 

19 


DAD. 

D 

JPOINT TO REPN IN CMEM 

46F 6 

35 


DCR 

M 

JDECREMENT REPEAT NO, 

46F7 

CA1647 


JZ 

REPM5 

1 FINISHED REPEATING? 

46FA 

210C00 


LXI 

H* I 2 


46FD 

19 


DAD 

D 

JPOINT TO REPS IN CMEM 

46FE 

D5 


PUSH 

D 


46FF 

5E 


MOV 

E/M 


4700 

23 


INX 

H 


4701 

56 


MOV 

D/M 


4702 

EB 


XCHG 



4703 

D1 


POP 

D 


4704 

E3 


XTHL 


J PUT REPS INTO STACK 

4705 

3AAD49 


LDA 

N1 

SHOW MANY CARDS? 

4708 

47 


MOV 

Bj> A 


4709 

3AAE49 


LDA 

N2 

S CARD BEING SERVICED 

470C 

B8 


CMP 

B 

S LAST CARD YET? 

470D 

C21647 


JNZ 

REPM5 


4710 

2AB349 


LHLD 

A3 

/GET SPECIAL REPEAT ADDR 

4713 

22)3149 


SHLD 

A2, 

/MOVE POINTER BACKWARDS 

4716 

El 

REPM5: 

POP 

H 

* GET STATEMENT ADDRESS, 

4717 

23 


DCX 

H 


4718 

C34941 


JMP 

FIND! 




1 CHECK 

FOR A 

MUSICAL EXIT POINT WITHIN 



% A REPEATED i 

SECTION/ AND EXIT TO THE 



JEND-0 

F-REPEAT COMMAND 

DURING THE LAST 



/ PASS• 




471B 

23 

JUMP1? 

INX 

H 

« © <» 

J? J 1 J 

471C 

E5 


PUSH 

H 

$ SAVE STATEMENT ADDR® 

471D 

21 0300 


LXI 

H* S I 


4720 

19 


DAD 

D 

;POINT TO REPN 

4721 

35 


DCR 

M 

JCHECK REPEAT NO® 

4722 

CA2A47 


JZ 

JUMP2 


4725 

34 


INR 

M 

/’NOT LAST PASS YET 

4726 

El 


POP 

H 


4727 

C34941 


JMP 

FIND1 


472A 

2AB549 

JUMP2s 

LHLD 

A4 

S GET END ADDRESS 

472D 

22B149 

V 

SHLD 

A2 

.»MOVE MAIN POINTER 

4730 

210E00 


LXI 

Hj> 14 


4733 

19 


DAD 

D 

JPOINT TO REPE 

4734 

7E 


MOV 

A# M 


4735 

23 


INX 

H 


4736 

66 


MOV 

H* m 
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4737 

6F 


MOV 

A 

i 

4738 

E3 


XTHL 


1PUSH END ADDR. 

4739 

El 


POP 

H 


473A 

C34941 


JMP 

FIMDi 




11 THIS IS A SECOND SERIES OF REPEAT INSTRUCTIONS 



j;WHICH USES 

THE COLON 

AS A REPEAT INDICATOR. 



1 i THE 

BEGINNING OF A REP HAS THE COLON AS THE FIRST 



• J;CHARACTER IN A MEASURE. 



hthe 

END OF 

REPEAT COLON MUST IMMEDIATELY PRECEED 



;;an 

END OF MEASURE SYMBOLCI.E. s/) 

473D 

23 

COLON 

s . INX 

H 

1 ILOOK AT CHAR FOLLOWING "s’* 

473E 

7E 


MOV 

A*M 

a @ 

$ J 

473F 

FE2F 


CPI 


■It IF IT’S AN END OF MEASURE* 

4741 

CA4347 


JZ 

COLi 

11 THEN IT'S AND END REPEAT. 

4744 

23 


DCX 

H 

71 IF NOT*IT'S BEGIN REPEAT 

4745 

22B849 


SHLD 

BREP 

1 ISO STORE BEGIN ADDR AND 

4748 

C34941 


JMP 

FIND1 

11 CONTINUE ON. 

4743 

3AB749 

COL1 i 

LDA 

IN REP 

11 IF REPEAT FLAG SET* 

474E 

B7 


ORA 

A 

11 IT'S THE SECOND TIME THRU. 

474F 

CA5A47 


JZ 

C0L2 

1 *JMP IF 1ST TIME THRU 

4752 

AF 


XRA 

A 

112ND TIME THRU*SO CLEAR INREP 

4753 

32B749 


STA 

INREP 

11 AND CONTINUE ON AS IF 

4756 

2B 


DCX 

H 

11 NOTHING HAPPENED 

4757 

C34941 


JMP 

FIND1 

w o 

$ $ 

475A 

3EFF 

C0L2: 

MV I 

A,0FFH 

11 SET INREP-FLAG*GET ADDRESS 

475C 

32B749 


STA 

INREP 

71 OF BEGINNNING OF REPEAT AND 

475F 

22BA49 


SHLD 

EREP 

11 PLAY MUSIC OVER AGAIN. 

4762 

E5 


PUSH 

H 

® a 
$ * 

4763 

2AB849 


LHLD 

BREP 

11GET BEGINNING OF REP. AND 

4766 

22B149 


SHLD 

A2. 

11 PUT IT IN MOVING POINTER 

4769 

El 


POP 

H 

11 SO IT WILL BE PLAYED NEXT. 

476A 

23 


DCX 

H 

» • 

9 9 

4763 

C34941 


JMP 

FIND1 

3 1CONTINUE 



n if . 

A "J” IS 

ENCOUNTERED* JUMP OUT OF REPEAT AND 



11 SETUP CARDS 

AFTER END 

i OF REPEAT SYMBOL AT ADDRESS 



11PREVIOUSLY 

STORED IN 

EREP. 

476E 

3AB749 

JREPs 

LDA 

IN REP 

11 IF 1ST TIME THRU REPEAT 

4771 

37 


ORA 

A 

11 SIMPLY IGNORE ANY "J" 

4772 

CA4941 


JZ 

FIND 1 

« ® 

J 4* 

4775 

AF 


XRA 

A 

11OTHERWISE*CLEAR REPEAT FLAG 

4776 

32B749 


STA 

INREP 

11 

4779 

E5 


PUSH 

H 

11 SAVE POINTER 

477A 

2ABA49 


LHLD 

EREP 

11GET END OF REPEAT ADDRESS 

477 D 

22B149 


SHLD 

A2 

11 AND PUT IT IN MOVING PNTR 

4780 

El 


POP 

H 

11 RECOVER POINTER 

4781 

C34941 


JMP 

FIND1 

11 AND CONTINUE 



1 THI S 

ROUTINE 

ALLOWS DIRECT CONTROL OF 



J THE ; 

FREQUENCY OF THE CARD BY ENTERING 



1A DECIMAL NUMBER INTO 

"MFREB" OF CMEM. 

4784 

CD9442 

FREOl 

s CALL 

nread 

1 GST VALUE 

4787 

2B 


DCX 

• H 

* a 

J 

4788 

CD6C43 


CALL 

PUTAD 

1 SAVE STATEMENT ADDR. 

478B 

210800 


LXI 

H* 8 


478E 

19 


DAD 

D 

IPO INT TO MFREB 

478F 

70 


MOV 

M*B 


4790 

C34843 


JMP 

NOTE0 

11 CONTINUE AT NOTES 
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;this routine will set the duration of an 

JENVELOPE ATTACK TIME. 


4793 

CD9442 

RTIME: CALL 

N READ 

J GET VALUE 

4796 

78 

MOV 

Aj, B 


4797 

E60F 

AN I 

0FH 

I SAVE ONLY 4 BITS 

4799 

47 

MOV 

Bj> A 


479A 

E5 

PUSH 

H 

; SAVE STATEMENT ADDR. 

479B 

210A00 

LXI 

II ^ 10 


479E 

1 9 

DAD 

D 

JPOINT TO MSCB 

479F 

7E 

MOV 

A^M 

I GET OLD TIME 

47A0 

E6F0 

AN I 

0F0H 


47A2 

B0 

ORA 

B 

) INSERT NEW TIME 

47A3 

77 

MOV 

M, A 


47A4 

El 

POP 

H 


47A5 

2B 

DCX 

H 


47A6 

C3DD41 

JMP FIND3 1NEXT CMD PLEASE. 

JTHIS ROUTINE ALLOWS THE DIRECT CONTROL OF 

J THE CARD'S VOLUME. 

47A9 

CD9442 

LEVELS CALL 

N READ 

1 GET VALUE 

47AC 

78 

MOV 

A,B 


47AD 

87 

ADD 

A 

li SHIFT LEFT 4 BITS 

47AE 

87 

ADD 

A 

© © 

9 9 

47AF 

87 

ADD 

A 

J 1 

47B0 

87 

ADD 

A 

w © 

9 J 

47B1 

47 

MOV 

Bj> A 


47B2 

E5 

PUSH 

H 

JSAVE STATEMENT ADDR. 

47B3 

210900 

LXI 

H# 9 


47B6 

19 

DAD 

D 

JPOINT TO MVOB 

47B7 

7E 

MOV 

Aj> M 


473S 

E60F 

AN I 

0FH 

) REMOVE OLD VOLUME 

4 7BA 

B0 

ORA 

B 

J PUT TOGETHER ' 

47BB 

77 

MOV 

Mj> A 


473C 

El 

POP 

H 


47BD 

2B 

DCX 

H 


47BE 

C3DD41 

JMP FIND3 . J GET NEXT CHARACTER 

ITHIS ROUTINE WILL SET A DON • T-TURN-OFF 

JFLAG C DTO).THE MUSIC CARD WILL BE UPDATED • 

; WITHOUT RETRIGGERING THE ENVELOPE 
,-CIRCUIT FOR ONLY ONE ATTACK ENVELOPE. BE 

J SURE TO USE AN ENVELOPE WHICH ENDS IN A 
; CONSTANT AMPLITUDE OR NO MORE SOUNDS WILL 
;BE HEARD FROM THE CARD AFTER THIS COM- 
IMAND. 

47C 1 

CD9442 

LEVON: CALL 

NREAD 


47C4 

E5 

PUSH 

H 

& & 

8 8 

47C5 

210700 

LXI 

Hj, 7 

3 3 CALC ADDR OF FLAG BYTE 

47C8 

19 

DAD 

D 

« & 

8 8 

47C9 

7E 

MOV 

Aj> M 

JJ GET FLAG BYTE 

47CA 

E 6 BF 

AN I 

0BFH 

St CLEAR DTO BIT 

47CC 

05 

DCR 

3 

33 TEST DIGIT AFTER " L" 

47CD 

C2D247 

JNZ 

LEVI 

JUMP IF DIGIT WASN'T 1 

47D0 

F640 

ORI 

•40H 

J J SET DTO BIT 

47D2 

77 

LEVI ? MOV 

Mj a 

St STORE NEW DTO BIT 

47D3 

El 

POP 

H 


47D4 

2B 

DCX 

H 


47D5 

C3DD41 

JMP 

11 THIS ROUTINE 

FIND3 
SETS OR 

JNEXT CHARACTER 

CLEARS THE TRIPLET FLAG. 

47D8 

0602 

TRIP 1: MVI 

HU 

J J SET COUNT 2,TRIPLETS 
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47DA 

DA 


DB 

0DAH 

® Q 
$ & 

47DB 

0603 

TRIP2: 

MVI 

B, 3 

1 $ SET COUNT 3# NO TRIPLET; 

47DD 

E5 


PUSH 

H 

o © 

* $ 

47DE 

210700 


LXI 

Hi. 7 

1 l CALC ADDR OF FLAGS 

47E1 

19 


DAD 

D 

d © 

47E2 

7E 


. MOV 

As M 

1J GET FLAG BYTE 

47E3 

E6FC 


AN I 

0FCH 

J1CLEAR TRIPLET FLAG BIT 

47E5 

B0 


ORA 

B 

II SET BITS TO 2 OR 3 

47E6 

77 


MOV 

Mi. A 

II STORE TRIPLET FLAG 

47E7 

El 


POP 

H 

® ® 

$ $ 

47E8 

C34941 


JMP 

FIND1 • 

© & 



1 THIS 

ROUTINE WILL LET 

THE USER SET THE 



1KEY SIGNATURE 

FOR A MUSICAL PIECE® 



iTHE NOTES THAT 

SHOULD 

BE SHARPED OR FLATED 



I WILL 

BE TYPED 

IN AFTER 

THIS COMMAND® 



J EXAMPLE: CK^+F^-B) 


47EQ 

E5 

KEYS 1? 

PUSH 

H 

J SAVE STATEMENT ADDR® 

47EC 

215F4A 


LXI 

H*kmem 


47EF 

060E 


MVI 

B, 14 


47F1 

AF 


XRA 

A 


47F2 

77 

KEYS8: 

• MOV 

M*A 

1CLEAR KMEM 

47F3 

23 


INX 

H 


47F4 

05 


DCR 

B 


47F5 

C2F247 


JNZ 

KEYS 8 


47F8 

El 


POP 

H 

5 RESTORE STATEMENT 

47F9 

23 

KEYS7l 

INX 

H 


47FA 

7E 


MOV 

A,M 


4.7 FB 

E67F 


AN I 

7FH 

© © © 

J» * $ 

47FD 

0600 


MVI 

Bs 0 


47FF 

FE2B 


CPI 

9 9 

1 SHARP? 

4831 

C20948 


JNZ 

KEYS 2 


4804 

0601 


MVI 

Bs 1 

1DELTA-1 

4806 

C31048 


JMP 

KEYS 3 


4809 

FE2D 

KEYS2i 

CPI 


1 FLAT? 

480B 

C23E48 


JNZ 

KEYS 5 


480E 

06FF 


MV I 

Bj» 0FFH 

1DELTA--! 

4810 

23 

KEYS3: 

INX 

H 


481 1 

7E 


MOV 

. Aj-M 

1 GET LETTER 

4812 

E67F 


AN I 

7FH 

8 « Q 

^ * J 

4814 

0E01 


MVI 

Cs 1 

1 SET KMEM OFFSET 

4816 

E5 


PUSH 

H 

1 SAVE STATMENT ADDR. 

4817 

213B48 


LXI 

Hs KEYS4 


481A 

E3 


XTHL 


1 SET A RETURN ADDRESS 

481B 

FE43 


CPI 

»C 9 


4810 

C8 


RZ 



481E 

0C 


INR 

G 


481F 

0C 


INR 

C 


4820 

FE44 


CPI 

'D 9 


4822 

C8 


• RZ 



4823 

0C 


INR 

C 


4824 

0C 


INR 

G 


4825 

FE45 


CPI 

•E 8 


4827 

C8 


RZ 



4828 

0C 


INR 

C 


4829 

FE46 


CPI 

9 P « 


482B 

C8 


RZ 




e-2k 



482C 

0C 


INR 

G 


482D 

0C 


INR 

C 


482E 

FE47 


CPI 

B G * 


4830 

C8 


RZ 



4831 

0 G 


INR 

c 


4832 

0C 


INR 

c 


4833 

FE41 


CPI 

* A* 


4835 

C8 


RZ 



4836 

0C 


INR 

c 


4837 

00 


INR 

c 


4838 

FE42 


CPI 

9 8’ 


433A 

C9 


RET 

f. 

I RETURN TO KEYS4 

483B 

CA4648 

KEYS4: 

JZ 

KEYS 6 

JJUMP* IF A LETTER 

483E 

FE29 

KEYS55 

CPI 

’ ) • 

** COMMAND END? 

4840 

C2F947 


JNZ 

KEYS 7 

* JUMP* IF NOT AT END 

4843 

C34941 


JMP 

FIND! 

* END* SO EXIT 

4846 

D5 

KEYS6: 

PUSH 

D 


4847 

E5 


PUSH 

H 


4848 

215F4A 


LXI 

H* KM EM 


484B 

59 


MOV 

E* c 


484C 

1600 


MV I 

D*0 


484E 

19 


DAD 

D 

;POINT AT NOTE IN KMEM 

484F 

70 


MOV 

M » B 

* SET DELTA 

4850 

El 


POP 

H 


4851 

01 


POP 

D 


4852 

C3F947 


JMP 

KEYS? 

* BACK FOR MORE NOTES 



JTHIS 

ROUTINE 

CAN SET* 

CLEAR OR LEAVE 



; UNCHANGED THE 

FOUR UPPER CONTROL BITS OF 



JTHE SPECIAL CONTROL BYTE AT XXF2H OF THE 



;music 

CARD® 



4855 

23 

CTRL 1s 

INK 

H 


4856 

CD8942 


CALL 

SPACE 

SSS GET CODE 

4859 

CD8042 


CALL 

NUMB 


485C 

DA6548 


JC 

CTRL 2 

1 J 1 NUMBER? 

485F 

CD9A48 


CALL 

MASK 

® 9 & 

J> $ $ 

4862 

C35548 


JMP 

CTRL! 

I 1 1 

4865 

FE58 

CTRL2 s 

CPI 

9 x - 

IIS IT "X" ? 

4867 

C27A48 


JNZ 

CTRL 3 

ft 0 

9 9 9 

486A 

3E01 


MV I 

Pkfi 1 

$ 3 3 

486C 

CD9A48 


CALL 

MASK 


486F 

3ABE49 


LDA 

Ml 

© & 

9 $ 9 

4872 

E6FE 


AN I 

0FEH 

SSS CORRECT 98 OR” MASK 

4874 

32BE49 


STA 

Ml 

I 3 1 

4877 

C35548 


JMP 

CTRL! 

;back for more 

487A 

2 B 

CTRL3 % 

DCX 

it 

* * * END OF CMD? 

487B 

E5 


PUSH 

H 

SSS SAVE STATEMENT ADDR 

487C 

3ABF49 


LDA 

M2 

1 GET "AND 59 MASK 

487F 

07 


RLC 



4880 

07 


RLC 



4881 

07 


RLC 



4882 

07 


RLC 



4883 

F60F 


ORI 

' 0FH 

$ 3 J 

4885 

47 


MOV 

EbA 

*SAVE M2 

4886 

3ABE49 


LDA 

Ml 

!GET "OR” MASK 

4889 

07 


RLC 



488A 

07 


RLC 



4882 

07 


RLC 



488C 

07 


RLC 
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488D 

E6F0 


AMI 

0F0H 

9 0 

9 $ 9 

488F 

210A00 


LX I 

K* 10 


4892 

19 


DAD 

D 

;POINT TO MSCB 

4893 

36 


ORA 

M 

J SET ALL 1 BITS 

'4894 

A0 


ANA 

B 

J SET ALL 0 BITS 

4895 

77 


MOV 

M* A 

JSAVE NEW MSCB 

4896 

El 


POP 

H 

& © 9 

$ 3 & 

4897 

C3DD4I 


JMP 

FIND3 

ill EXIT® FINISHED. 

489A 

E60 1 

MASKS 

AN I 

i 

IIS LSB-0 OR 1? 

489C 

47 


MOV 

B*A 

@ ® 0> 

J> St 

489D 

3ABE49 


LDA 

Ml 

SIS GET "OR*’ MASK 

48A0 

07 


RLC 



48A1 

E6FE 


AMI 

0FEH 


4 8 A3 

30 


ORA 

B 

© « « 

J> J # 

48A4 

32BE49 


STA 

Ml 

III CREATE NEW "OR” 

48A7 

3ABF49 


LDA 

M2 

111 GET "AND 8 ' MASK 

48AA 

07 


RLC 



4 SAB 

E6FE 


AN I 

0FEH 


4 SAD 

B0 


ORA 

3 

& & <Q 

* 9 

48AE 

32BF49 


STA 

M2 

** 7 CREATE NEW "AND” 

4831 

09 


RET 





J THIS 

ROUTINE i 

WILL LOAD 

IN THE PARAMETERS 



JSPECIFIED FOR 

A WAVEFORMCW0-X) OR AN ENVELOPE 



J < E0- 

X) INTO A 

TABLE FOR LATER USE IN MUSIC. 



J”X" 

CAN BE ANY VALUE FROM 0 TO 7. 

4832 

CD9442 

WAVE 1 

s GALL 

N READ 


4835 

78 


MO V 

A* B 

1 GET NUMBER 

48B6 

37 


ORA 

A 

JCHECK FOR ZERO 

4837 

021049 


JNZ 

wvx 

1JUMP*IF NOT A LOAD CMD 

483A 

D5 


PUSH 

D 


4833 

11ED4A 


LXI 

D*WMEM 

1 POINT TO WAVEFORM MEMORY 

48BE 

0E04 


MVI 

G* 4 

<* 

48C0 

C3D148 


JMP 

FLT 1 

JGO COMPUTE TABLE ADDR. 

48C3 

CD9442 

SHAPE 

: CALL 

NREAD 


48C6 

78 


MOV 

A*B 


4807 

37 


ORA 

A 


4808 

024249 


JNZ 

SHX 

1JUMP*IF NOT LOAD CMD 

4803 

D5 


PUSH 

D 


4800 

116D4A 


. LXI 

D*EMEM 

$ POINT TO ENVELOPE MEMORY 

48CF 

0E01 


MVI 

G* 1 


48D1 

CDFD48 

FLT1 s 

CALL 

TADJ1 

1 COMPUTE TABLE ADDRESS 

48D4 

2B 


DCX 

H 


48D5 

23 

FLT5: 

INX 

H 


48D6 

CD8942 

FLT2 s 

CALL 

SPACE 

e e 
$ 9 

48D9 

FE0D 


CPI 

015Q 


48DB 

CAF248 


JZ 

FLT3 

JGO REMOVE LINE NO. 

48DE 

FE29 


CPI 

* ) 8 


48E0 

CAF948 


JZ 

FLT4 

1 END OF COMMAND 

48E3 

CD8042 


CALL 

NUMB 

I CHECK FOR A NUMBER 

48E6 

DAD548 


JC 

FLT5 

1 JUMP*IF NOT A NUMBER 

48E9 

CD9442 

/ 

CALL 

NREAD 

* GET NEXT NUMBER 

48EC 

78 


MOV 

' A* B 

I GET DATA 

48ED 

12 


STAX 

D 

JSAVE NO. IN TABLE 

48EE 

13 


INX 

D 


48EF 

C3D648 


JMP 

FLT 2 


48F2 

2B 

FLT 3 s 

DCX 

H 
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48F3 

CD7642 



NNUM4 


4SF6 

C3D648 


JMP 

FLT2 


48F9 

D1 

FLT4S 

POP 

D 


4 8 FA 

C34941> 


JMP 

FIND1 


48FD 

CD9442 

TADJ1 $ 

CALL 

M READ 

J GET TABLE NUMBER 

4900 

E5 


PUSH 

H 

% SAVE STATEMENT ADDS. 

4901 

2600 


MV I 

Hj> 0 


4903 

68 


MOV 

Lj.B 

J SET H&L-NUMBER 

4904 

29 


DAD 

H 

1 X2 

4905 

29 


DAD 

H 

1X4 

4906 

29 


DAD 

H 

JX8 

4907 

29 

TADJ 2i 

DAD 

H 

;xi6 

4908 

0D 


DCR 

C 


4909 

C20749 


JNZ 

TADJ2 

I INCREASE AGAIN? 

490C 

19 


DAD 

D 

,1 ADD TABLE START 

490D 

EB 


XCHG 



490E 

El 


POP 

H 

1 RESTORE STATEMENT 

490F 

C9 


RET 



4910 

3D 

WVX: 

DCR 

A 


4911 

E601 


AN 1 

1 


4913 

07 


RLC 



4914 

07 


RLC 



4915 

07 


RLC 



4916 

07 


RLC 


JADJUST CTRL BIT 

4917 

47 


MOV 

Bj A 

s SAVE CTRL BIT 

4918 

E5 


PUSH 

H 

JSAVE STATEMENT ADDR. 

4919 

210A00 


LX1 

H, 10 


491C 

19 


DAD 

D 

1 POINT TO MSCB 

49 ID 

7E 


MOV 

A,M 


49 IE 

E6EF- 


AMI 

357S 


4920 

B 0 


ORA 

B 

;CHANGE WAVEFORM SELECT 

4921 

77 


MOV 

M,A 

S PUT INTO CMEM 

4922 

El 


POP 

H 

JRESTORE STATEMENT 

4923 

7E 


MOV 

As M 


4924 

FE20 


CPI 

* «.« 

S TRANSFER WAVEFORM? 

4926 

C23E49 


JNZ 

WVX1 

;; jumps if no. 

4929 

C05E49 


CALL 

OFF 

1 TURN-OFF CARD 

492C 

05 


PUSH 

D 

;J 3 SAVE CMEM ADDRESS 

492D 

C5 


PUSH 

a 

i SAVE CARD'S ADDRESS 

492E 

11E04A 


LXI 

Bs WMEM 


4931 

0S04 


MV I 

C,4 


4933 

C0F048 


CALL 

TAD J 1 


4936 

E3 


XTHL 


i ;;SET H&L-CARD'S ADDR. 

4937 

0E80 


MV I 

C, 128 


4939 

CDE143 


CALL 

TRAN 1 

1 TRANSFER WAVEFORM 

493C 

El 


POP 

H 

O © » 

9 9 9 

4930 

01 


POP 

D 


493E 

23 

WVX1 : 

DCX 

H 


493F 

C30041 


JMP 

F1ND3 

o © 

9 9 

4942 

CD5E49 

SHXj 

CALL 

OFF 

1 TURN-OFF CARD 

4945 

05 


PUSH 

D 

® & © 

$ 9 9 

4946 

C5 . 


PUSH 

B 


4947 

11604A 


LXI 

■ Ds EMEM 


4 94A 

0E01 


MV I 

Cs 1 


494G 

C0F048 


CALL 

TAD J1 


494F 

E3 


XTHL 


;j;get card 8 s addr. 

4950 

01£000 


LXI 

3j> 0E0H 
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4953 

09 


DAD 

B 

;POINT TO CRD ENVELOPE 

4954 

0E10 


MV I 

C / 1 6 

' 

4956 

CDE143 


CALL 

TRAN 1 

/TRANSFER ENVELOPE,, 

4959 

El 


POP 

H 

a e # 

2 » 2 

495A 

D1 


POP 

D 


495B 

C33E49 


JMP 

WVX1 

1 FIND END OF CMD. 

495E 

D5 

OFFs 

PUSH 

D 


495F 

E5 


PUSH 

H 


4960 

210A00 


LXI 

Hz 10 


4963 

19 


DAD 

D 


4964 

7£ 


MOV 

Az M 

/GET MSCB 

4965 

F680 


ORI 

80 H 

1 SET "OFF" SIT 

4967 

EB 


XCHG 



4968 

4E 


MOV 

C/M 

J1LOW ADDR OF CARD 

4969 

23 


INX 

H 


496A 

46 


MOV 

Bz M 

11 HIGH ADDR OF CARD 

4963 

60 


MOV 

Hz B 

IIB&C POINT TO CARD 

496C 

2EF2 


MV I 

Lz0F2H 

J J HAL POINT TO CSCB 

496E 

77 


MOV 

MzA 

1TURN-OFF CARD 

496F 

El 


POP 

H 


4970 

D1 


POP 

D 


4971 

C9 


RET 





JSCRATCH MEMORY TABLE 


4972 



DS 

056Q 

ZSPACE FOR STACK-2 

49A0 

0000 

T0PS2: 

DW 

0 

1 SAVE OLD STACK PO INTER 

49A2 

0000 


DW 

0 


49A4 

0000 


DU 

0 ' 


49A6 

0000 

TSTKs 

DU 

0 

z* STACK FOR SOFTW. TIMER 

49A8 

00 

T 1 % 

DB 

0 

JTIME STORAGE 

49A9 

00 

T2 s 

DB 

0 

1 DITTO 

49AA 

64 

T3 s 

DB 

1 00D 

J BEATS PER MINUTE 

49AB 

04 

T4: 

DB 

4 

/BEATS PER MEASURE 

49AC 

04 

T5: 

DB 

4 

/•NOTE DURATION /BEAT 

49AD 

01 

Ml s 

DB 

1 

J NO. OF CARDS/MEASURE 

49AE 

01 

N2s 

D3 

1 

J CARD BEING SERVICED 

49AF 

0050 

Al % 

DW 

05000H 

J START OF MUSIC FILE. 

49B1 

0050 

A2 s 

DU 

05000H 

/NEXT MEASURE POINTER 

4933 

0050 

A3: 

DW 

05000H 

IREPEAT POINTER# START 

4935 

0050 

A4 S 

DU 

05000H 

/* REPEAT POINTER/ END 

49B7 

00 

INREPs 

DB 

0 

II COLON FLAG 

4938 

0050 

BREPs 

DU 

5000H 

II COLON/STARTING ADDRESS 

493A 

0050 

EREPs 

DW 

5000H 

II COLON/END ADDRESS 

49BC 

01 

B 1 s 

DB 

1 

3 CARD COUNTER 

49BD 

0F 

B 2 : 

DB 

0FH 

3 EOM ACCUMULATER 

49BE 

00 

Ml % 

DB 

0 

ISAVE "OR" MASK BYTE 

49BF 

00 

M2 s 

DB 

0 

I SAVE "AND" MASK BYTE 

49C0 

00 

M3 i 

DB 

0 

/“USED BY "DEC 1" 

49C1 

FF 

STPFGs 

DB 

0FFH 

ISTOP FLAG(SOFTWARE TIMER) 

49C2 

00 

PASS: 

DB 

0 

/“CONTROL PARAMETER 



ITHIS 

TABLE S 

AVES ALL INFORMATION 



1 NECESSARY TO 

UPDATE AND 

i CONTROL UP TO 



/EIGHT 

MUSIC 

CARDS. 




MAC i 

MACRO 

U* 1 





DU 

CARDS+C1 

II POINTER TO CARD’S ADDR. 




DW 

05000H 

/POINTER TO STATEMENT 




DB 

04 

IFIX NO./INTERRUPT GT.CINT. 




DB 

01 

1 INTERRUPT COUNTER (INT2) 
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DB 

01 

J 3 TRIPLET COUNTER 




DB 

FLG 

J SDTO* EOM & TRIPLET FLAGS 




DB 

247D 

JMFREQ. FREQUENCY BYTE '■ 




DB 

0F4H 

JJWQB. VOL./OCT. BYTE 




DB 

0C0H 

JMSCB®. SPECIAL CTRL BYTE 




DB 

01 

JREPN. NUMBER OF REPEATS 




DW 

05000H ■ 

JREPS. START OF REPEATS 




DW 

05080H 

JREPE. END OF REPEATS 



* 

ENDM 





CMEM: 

MAC I 

000 H 

J CARD 1 . • . " 




DW 

CARDS+00000H JJ POINTER TO CARD'S ADDR 

4903 

0080 





49C5 

0050 


DW 

05000H 

$ POINTER TO STATEMENT 

49C7 

04 


DB 

04 

J FIX NO .» INTERRUPT CT. (INTO 

49C8 

01 


DB 

01 

JINTERRUPT COUNTER <INT2) 

49C9 

01 


DB 

01 

JJTRIPLET COUNTER 

49CA 

0F 


DB 

FLG 

J % DTOj EOM & TRIPLET FLAGS 

49CB 

A7 


DB 

247Q 

J MFREQ. FREQUENCY BYTE 

49CC 

F4 


DB 

0F4H 

JMVOB. VOL./OCT. BYTE . 

49CD 

C0 


DB 

0C0H 

JMSCB. SPECIAL CTRL BYTE 

49CE 

01 


DB 

01 

3 REPW. NUMBER OF REPEATS 

49CF 

0050 


DW 

05000H 

;REPS. START OF REPEATS 

49D1 

8050 


DW 

05080H 

JREPE. END OF REPEATS 




MAGI 

100 H 

J 

3 CARD 2 




DW 

CARDS+00100H JJ POINTER TO CARD'S ADDR 

49D3 

0081 





49D5 

0050 


DW 

05000H 

JPOINTER TO STATEMENT 

49D7 

04 


D3 

04 

J FIX NOINTERRUPT CT.(INTI) 

49D8 

01 


DB 

' 01 

3 INTERRUPT COUNTER CINT2) 

49D9 

01 


DB 

01 

3 3 TRIPLET COUNTER 

49DA 

0F 


DB 

FLG 

J J DIG j> EOM & TRIPLET FLAGS 

49DB 

A7 


DB 

247W 

i MFREQ. FREQUENCY BYTE 

49DC 

F4 


DB 

0F4H 

3 MVOB. VOL./OCT. BYTE 

49DD 

C0 


DB 

0C0H 

3 MSCB. SPECIAL CTRL BYTE 

49DE 

01 


DB 

01 

S REPN. NUMBER OF REPEATS 

49DF 

0050 


DW 

05000H 

JREPS. START OF REPEATS 

49E1 

8050 


DW 

05080H 

JREPE. END OF REPEATS 




MAC 1 

200H 

i CARD 3 




DW 

CARDS+00200H ;; POINTER TO CARD'S ADDR 

49E3 

0082 





49E5 

0050 


DW 

05000H 

JPOINTER TO STATEMENT 

49E7 

04 


DB 

04 

J FI X NO •» INTERRUPT CT.CINTI> 

49E8 

01 


DB 

01 

JINTERRUPT COUNTER CINT2) 

49E9 

01 


D3 

01 

33 TRIPLET COUNTER 

49EA 

0F 


DB 

FLG 

J 3 DTOj EOM & TRIPLET FLAGS 

49EB 

A7 


DB 

24 7 a 

3 MFREQ. FREQUENCY BYTE 

49EC 

F4 


DB 

0F4H 

J MVOB. VOL./OCT. BYTE 

49ED 

C0 


DB ' 

0C0H 

i MSCB. SPECIAL CTRL BYTE 

4 9 EE 

01 


DB 

01 

i REPN• NUMBER OF REPEATS 

49EF 

0050 


DW 

05000H 

3 REPS. START OF REPEATS 

49FI 

8050 


DW 

05080H 

JREPE. END OF REPEATS 




MAC 1 

300H 

JCARD 4 


' 


DW 

CARDS+00 3 8 0H- J J POINTER TO CARD'S ADDR 
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49F3 

0083 




49F5 

0050 

DW 

05000H 

JPOINTER TO STATEMENT 

49F7 

04 

DB 

04 

1 FIX NO. j INTERRUPT CT.(INTl) 

49F8 

01 

DB 

01 

iINTERRUPT COUNTER CINT2) 

49F9 

01 

DB 

01 

S3 TRIPLET COUNTER 

49FA 

0F 

DB 

FLG 

iidto* eom & triplet flags 

49FB 

A 7 * 

DB 

2470 

; mfreq. frequency byte 

49FC 

F4 /• 

DB 

0F4H 

imvob. vol./oct. byte 

49FD 

C0 

DB 

0C0H 

;mscb. special Ctrl byte 

49 FE 

01 

DB 

01 

5 REPN. number of repeats 

49FF 

0050 

DW 

05000H 

J REPS. start of repeats 

4A01 

805‘0 

dw 

05080H 

IREPE. END OF REPEATS ■■ 



MAC 1 

400H 

5 CARD 5 



DW 

CARDS+00400H ;> POINTER TO CARD'S ADDR 

4A03 

0084 




4A05 

0050 

DW 

05000H 

; POINTER TO STATEMENT 

4A07 

04 

DB 

04 

1 FIX NO » * INTERRUPT CT.(INTl) 

4A08 

01 

DB 

01 

1 INTERRUPT COUNTER CINT2) 

4A09 

01 

DB 

01 

SS TRIPLET COUNTER 

4A0A 

0F 

D3 

FLG 

JIDTO* EOM & TRIPLET FLAGS 

4A0B 

A7 

DB 

2470 

IMFREQ. FREQUENCY BYTE 

4A0C 

F4 

DB 

0F4H 

JMVQB. VOL./OCT. BYTE 

4A0D 

C0 

DB 

0C0H 

IMSCB. SPECIAL CTRL BYTE 

4A0E 

01 

DB 

01 

S REPN• NUMBER OF REPEATS 

4A0F 

0050 

DW 

05000H 

I REPS. START OF REPEATS 

4A11 

8050 

DW 

05080H 

IREPE. END OF REPEATS - 



MAC 1 

500H 

$ CARD 6 



DW 

CARDS+00500H II POINTER TO CARD'S ADDR 

4A13 

0085 




4A15 

0050 

DW 

05000H 

;POINTER TO STATEMENT 

4A17 

04 

DB 

04 

I FIX NO.*INTERRUPT CT. (INTI) 

4A1 8 

01 

DB 

01 

IINTERRUPT COUNTER (INT2) 

4Al 9 

01 

DB 

01 

IITRIPLET COUNTER 

4A1A 

0F 

DB 

FLG 

IIDTO* EOM & TRIPLET FLAGS 

4A1B 

A7 

DB 

24 70 

IMFREQ. FREQUENCY BYTE 

4A1C 

F4 

DB 

0F4H 

1 MVOB® VOL./OCT. BYTE 


C0 

DB 

0C0H 

IMSCB. SPECIAL CTRL BYTE 

4A1 E 

01 

DB 

01 

IREPN. NUMBER 0 F REPEAT S 

4AIF 

0050 

DW 

05000H 

IREPS. START OF REPEATS 

4A21 

8050 

DW 

05080H 

IREPE. END OF REPEATS 



MAC 1 

600H 

1 CARD 7 



DW 

CARDS+00600H II POINTER TO CARD'S ADDR 

4A23 

0086 




4A25 

0050 

DW 

05000H 

I POINTER TO STATEMENT 

4A27 

04 

DB 

04 

I FIX NO.* INTERRUPT CT. (INTI) 

4A28 

01 

DB 

01 

IINTERRUPT COUNTER (INT2) 

4A29 

01 

DB 

• 01 

1 J TRIPLET COUNTER 

4A2A 

0F 

DB 

FLG 

$ IDTO* EOM & TRIPLET FLAGS 

4A2B 

A7 

DB 

■ 2470 

J MFREQ® FREQUENCY BYTE 

4A2C 

F4 

DB 

0F4H 

IMVOB. VOL./OCT. BYTE 

4A2D 

C 0 

DB 

0C0H 

IMSCB. SPECIAL CTRL BYTE 

4A2E 

01 

DB 

01 

IREPN. NUMBER OF REPEATS 

4A2F 

0050 

DW 

05000K 

I REPS. START OF REPEATS 

4A31 

8050 

DW 

05080H 

J REPE* END OF REPEATS 
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MAC 1 

700H 

1 LAST# CARD 8 



DW 

CARDS+00700H 11 POWER TO CARD’S ADDR 

4A33 

0087 




4A35 

0050 

DW 

05000H 

IPO INTER TO STATEMENT 

4A37 

04 

DB 

@4 

1 FIX NO• 9 INTERRUPT GT» CINTI ) 

4A38 

01 

DB 

01 

1 INTERRUPT COUNTER CINT2) 

4A39 

01 

DB 

0! 

11 TRIPLET COUNTER 

4A3A 

0F 

DB 

FLG 

JJDTG* EOM & TRIPLET FLAGS 

4A3B 

A7 

DB 

24 7Q 

1MFREQ. FREQUENCY BYTE 

4A3C 

F4 

DB 

0F4H 

JMVOB. VOL./OCT. BYTE 

4A3D 

C0 

D3 

0G0H 

1MSCB. SPECIAL CTRL BYTE 

4A3E 

01 

DB 

01 

1REPN. NUMBER OF REPEATS 

4A3F 

0050 

DW 

05000H 

1 REPS« START OF REPEATS 

4A41 

8050 

DW 

05080H 

JREPE. END OF REPEATS 



;this table 

DEFINES ONE 

OCTAVE OF 


inotes for the music card® 


4A43 

63 

NMEMs DB 

143Q 

$ -C 



4A44 

6B 

DB 

153Q 




4A45 

73 

DB 

163Q 

J-D 



4A46 

7B 

DB 

173Q 

1 D 



4A47 

82 

DB 

202Q 

1+D 



4A48 

89 

DB 

21 IQ 

1 E 



4A49 

90 

DB 

220Q 

1 F 



4A4A 

96 

DB 

226Q 

;+f 



4A4B 

9C 

DB 

234Q 

1 G 



4A4C 

A2 

DB 

242Q 

1+G 



4A4D 

A7 

DB 

247Q 

1 A 



4A4E 

AC 

DB 

254Q 

1 +A 



4A4F 

B1 

DB 

26 1 Q 

1 B 



4A50 

B6 

DB 

266Q 

1 +B 





11 THIS TABLE DEFINES 

ONE OCTAVE OF 



11 NOTES FOR INVERTED 

MUSIC 



4A51 

B6 

I MEM: DB 

-266Q 

• e p 

J> £ 

PLAYS 

+S 

4A52 

BI 

DB 

26 1 Q 

« ® r» 

£ 9 U 

PLAYS 

B 

4A53 

AC 

DB 

254Q 

ll-D 

PLAYS 

+A 

4A54 

A7 

DB 

247Q 

II D 

PLAYS 

A 

4A55 

A2 

DB 

242Q 

11 4-D 

PLAYS 

+G 

4A56 

9C 

DB 

234Q 

9 © C"* 

£ £ £« 

PLAYS 

G 

4A57 

96 

DB 

226Q 

11 F 

PLAYS 

+ F 

4A58 

90 

DB 

220Q 

J J+F 

PLAYS 

F 

4A59 

89 

DB 

2i ia 

* * b 

PLAYS 

E 

4A5A 

82 

DB 

202Q 

1 J+G 

PLAYS 

+D 

4A5B 

7B 

DB 

1 73Q 

1 J A 

PLAYS 

D 

4A5C 

73 

DB 

. 163Q 

II 4* A 

PLAYS 

+G 

4A5D 

6B 

DB 

153Q 

« * 

# o 

PLAYS 

C 

4A5E 

63 

DB 

143Q 

11 -c 

PLAYS 

+B 



1THIS IS A 

KEY SIGNATURE TABLE WHICH 



1 INDICATES 

WHICH NOTE 

SHOULD 

BE SHARPED 



10R FLATED. 

0-NATURAL* 

I -SHARP* FFH-: 

FLAT . 

4A5F 

00 

KMEM: DB 

0 




4A60 

00 

DB 

0 

I c 



4A61 

00 

DB 

0 




4A62 

00 

DB 

0 

ID 







4A63 

00 


DB 

0 


4A64 

00 


DB 

0 i E 


4A65 

00 


DB 

0 IF 


4A66 

00 


DB 

0 


4A67 

00 


DB 

0 1G 


4A68 

00 


DB 

0 


4A6 9 

00 


DB 

0 1A 


4A6A 

00 


DB 

0 


4A6B 

00 


. DB 

0 IB 


4A6G 

00 


DB 

0 




ITHIS 

TABLE 

DEFINES EIGHT ATTACT ENVELOPES 



3 OF 16 

BYTES 

EACH . 


4A6D 

0F0E0D0G 

EMEMs 

DB 

15*14*13* 12 

JIE0-0 

4A71 

0B0A0908 


DB 

11*10*9*8 

i; LINEAR DECAY 

4A75 

07060504 


DB 

7*6* 5*4* 

!** TO ONE® 

4A79 

03020101 


DB 

3*2* 1*1 

<9 © 

J> £ 

4A7D 

0F0E0D0C 

J 

DB 

15*14*13*12 

IIE0-1 

4A8J 

0B0A0808 


DB 

11* 10*8*8 

Jl LINEAR DECAY 

4A85 

08083808 


DB 

8* 8* 8* 8 

II TO EIGHT. 

4A89 

08080808 


DB 

8* 8* 8* 8 

1 i 

4A8D 

0306090G 

J 

DB 

3*6*9* 12 

IJIE0-2 

4A91 

0F0E0D0C 


DB 

15*14*13*12. 

III UP AND DOWN 

4A95 

030A0908 


DB 

11*10*9*8 

» © <9 

* J # 

4A99 

07060504 

© 

DB 

7* 6* 5* 4 

a a © 

9 J> J 

4A9D 

0205090B 


DB 

2*5*9* 1 1 

* * E0-3 

4AAI 

0D0D0D0D 


DB 

13*13*13* 13 

II UP*LEVEL*DOWN 

4AA5 

0D0D0D0D 


DB 

13*13*13*13 

© # 

* 

4AA 9 

0B090502 

a 

DB 

11* 9* 5* 2 

J' 

4AAD 

0F0D0C0C 

# 

DB 

15*13*12*12 

1 * £0-4 

4A81 

0C0C0C0C 


DB 

12*12*12*12 

II CONSTANT AMPL. 

4AB5 

0C0C0C0C 


DB 

12*12*12*12 

@ © 

» 3 

4AB9 

0C0C0C0C 

a 

DB 

12*12*12*12 

© ® 

4ABD 

0F0C0A09 

J? 

DB 

15*12*10*9 

IIE0-5 

4AC1 

08070605 


DB 

8* 7* 6* 5 

J* FAST DECAY 

4AC5 

04040303 


DB 

4 * 4 * 3 * 3 

© © 

4AC9 

02020201 

« 

DB 

2*2* 2* 1 

0 & 

J> * 

4ACD 

0F080E07 

J 

DB 

15*8*14*7 

* * E0-6 

4AD1 

0D060C05 


DB 

13*6*12*5 

II WAVERING DECAY 

4AD5 

0B040A03 


DB 

11*4*10*3 

a © 

J? ^ 

4AD9 

09020801 

« 

DB 

9*2*8* i 

© 9 

4ADD 

080E0F0F 


DB 

8* 14*15* 15' 

IIE0-7 

4AE1 

0F0F0F0F 


DB 

15* 1'5* 15* 15 

II MODERATE ATTACK 

4AE5 

0F0E0D0C 


DB 

i * ? * 14* 13* 12 

II AND SLOW DECAY 

4AE9 

0B0A0908 


DB 

1 1* 10*9*8 

.© a 

J S 


© 

* 

I THIS TABLE DEFINES EIGHT WAVEFORMS OF 
I 128 BYTES LONG EACH TO BE TRANSFERRED IN 
I THE FUTURE TO A MUSIC CARD. 

WM0 MACRO 

DW 0C0C0H*0C0C0H ISQUAREWAVE 
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Dw 0G0G0Hs 0C0C0H 
DW 0C0G0H# 0C0C0H 
DW 0C0C0H,0C0C0H 
DW 04040Hj> 04 040H 
DW 04040H* 04040H 
DW 04040Hj» 04040H 
DW 04040Hj 04040H 
ENDM 


WH1 


* 

m2 


MACRO 


•» ® 

DW 

0A894 H* 0CABAH 

ISSNEWAWE 

DW 

0E1D7H* 0E9E7H 


DW 

0£iE7K* 0CAD7H 


DW 

0A8BAH*08094H 


DW 

0586CH* 03646H 


DW 

01F29H* 01719H 


DW 

0 IF19H* 03629H 


DW 

ENDM 

05846H* 0806CH 


MACRO 


«• « 

£ J> ' 

DW 

0A090H* 0C0B3H 

** TRIANGLE WAVE 

DW 

0E0D0H* 0FFF0H 


DW 

0E0F0H*0C0D0H 


DW 

0A0B0H* 08090H 


DW 

86070H* 04050H 


DW 

02030H* 00010H 


DW 

02010H*04030H 


DW 

ENDM 

06050H* 08070H 



WM3 


MACRO 


® «* 

* J 1 

DW 

0AE98H* 0C8BFH 

.! 3 FUNDAMENTAL AND 

DW 

0C5GAH* 0AABAH 

33 2ND HARMONIC 

DW 

08999H*074 7CH 


DW 

07270H# 08078H 


DW 

08E88H* 08C90H 


DW 

07784H* 05667H 


DW 

03B46H* 03836H 


DW 

ENDM 

05241H* 08068H 



WM4 


MACRO 


S3 

DW 

0724AH,0B696H 

3 RECTIFIED SINEWAVE 

DW 

0E3D0H*0F3EFH 


DW 

0E3EFH* 0B6D0H 


DW 

07296H* 02 UAH 


DW 

02121H*02121H 


DW 

0212iH* 02121H 


DW 

02121H,02121H 


DW 

ENDM 

02i21H* 82 i 2 i H 



WM5 MACRO ii 

DB 128,255*225,122 ;;FULL DIAPASON 

DB 114*162*157*137 S3 

DB 174*210*184,171 S3 


■ 6-33 






DB 

207* 185j? 67* 15 

© © 





D3 

i28*241*189*71 

» © 

* 9 





D3 

49*85* 72*46 

o © 

J ,# 





DB 

82*119*99*94 

0 © 





DB 

142 * 134*31*0 

© & 

£ $ 




# 

EN DM 


li 




» 

UM6 

MACRO 


© © 

# * 





DB ' 

128* 167 * 195*214 

0 0 

Jt 

CELLO 




DB 

227*234*237*23,9 

© © 

» 3 





DB 

235*224*210* 195 

| j 





DB 

180*167*155* 142 

1 i 





DB 

128.. 1 14* 101 * 89 

© 0 
«£> 





DB 

76*61*46*32 

© © 





DB 

21*17*19*22 

© 9 





DB 

29*42*61 * 89 . 

Cl 0 

3 




a 

ENDM 


o © 




WM7 

MACRO 


© © 

^ * 





DB 

128* 24i * 255*229 

© « 

TRUMPET 




DB 

206*130*154*138 

9 0 





DB 

136*144*147*150 

© W 

J> 9 





DB 

153*146*140*138 

© ® 

J * 





DB 

I28*118*116*110 

® as 





DB 

103*106* 109* 112 

* * 





DB 

120*118*102*76 

1 1 





D3 

50*27* 1*15 

<9 ® 

3 » 





ENDM 


© © 

9 9 




** 

WMEM! 

WM0 

1W0-0 



4AED 

C0C0C0C0 


DU 

PG0C0H* 0C0C0H 

* SQUAREWAVE 

4AF1 

C0C0C0C0 


DU 

0C0C0H* 0C0C0H 



4AF5 

C0C0C0C0 


DU 

0C0C0H* 0C0C0H. 



4AF9 

C0C0C0C0 


DU 

0C0C0H* 0G0G0H 



4AFD 

40404040 


DU 

04040H* 04040H 



4301 

40404040 


DU 

04040H* 04040H 



4B05 

40404040 


DU 

04040H* 04040H 



4309 

40404040 


DU 

04040H*04040H 






urn 




4S0D 

C0C0C0C0 


DU 

0C0C0H* 0C0C0H 

*SQUAREWAVE 

4B1 1 

C0C0C0C0 


DU 

0C0C0H* 0C0C0H 



4315 

G0C0C0C0 


DU 

0C0C0H* 0C0C0H 



4319 

C0C0C0C0 


DU 

0C0G0H*.0C0C0U 



4B ID 

40404040 


DU 

04040H* 04040H 



4B21 

40404040 


DU 

04040H* 04040H 



4B25 

40404040 


DU 

04040K* 04040H 



4B29 

40404040 


DU 

04040H* 04040H 






U M0 




4B2D 

G0C0C0C0 


DW 

0C0C0H* 0C0C0H 

1SQUAREWAVE 

4B31 

C0C0C0C0 


DW 

' 0C0C0H* 0C0C0H 



4B35 

C0C0C0C0 


DW 

0C0C0H*0C0C0H 



4339 

G0C0C0C0 


DW 

0C0C0H*0C0C0H 



4B3D 

40404040 


DW 

04040H* 04040H 



4B41 

40404040 


DW 

04040H*04040H 



4345 

40404040 


DU 

04 04 0 H* 04 04 0 H 




6 - 3 *4 



4B49 

40404040 

D W 



WM0 

4B4D 

C0C0G0G0 

DW 

4851 

G0C0C0C0 

DW 

4855 

C0C0G0C0 

DW 

4B59 

C0C0C0C0 

DW 

4B5D 

40404040 

DW 

4861 

40404040 

DW 

4865 

40404040 

DW 

4869 

40404040 

DW 



WMi 

436D 

94A8BACA 

DW 

4871 

D7E1E7E9 

DW 

4875 

E7E1D7CA 

DW 

4879 

BAAS9480 

DW 

487D 

6G584636 

DW 

4881 

291 FI 9 1 7 

DW 

4885 

191F2936 

DW 

4389 

46586G80 

DW 



WMI 

488D 

94A88ACA 

DW 

4891 

D7E1E7E9 

DW 

4895 

E7E1D7CA 

DW 

4899 

BAA89480 

DW 

489D 

6C584636 

DW 

4BA1 

291 FI 917 

DW 

48A5 

191F2936 

DW 

48A9 

46586G80 

DW 



WMI 

4 BAD 

94A83ACA 

DW 

48B1 

D7E1E7E9 

DW 

4885 

E7E1D7CA 

DW 

4889 

BAAS9480 

DW 

4880 

60584636 

DW 

48C 1 

291F1917 

DW 

48C5 

191F2936 

DW 

48C9 

46586G80 

DW 



WMI 

4BCD 

94A8BACA 

DW 

4BD1 

D7E1E7E9 

DW 

48D5 

E7E1D7CA 

DW 

48D9 

BAA894S0 

DW 

4BDD 

6C584636 

DW 

4BE1 

291 FI 917 

DW 

4BE5 

191F2936 

DW 

48E9 

46586080 

DW 



WM2 

4BED 

90A030C0 

DW 

43F1 

D0E0F0FF 

DW 

48F5 

F0E0D0G0 

DW 

43F9 

B0A09080 

DW 


0404BHj> 04040.8 


0C0C0Hj» 0C0C0H JSQUAREWAVE 

0G0C0H*0C0C0H 

0G0G0H* 0C0C0H 

0G0G0H^> 0G0G0H 

04040H* 0404.0H 

04040H.* 04040H 

04040H* 04040H 

040401!,0404011 

;w0-i 

0A894Hj> 0CABAH 1SXNEWAVE 
8E1D7H, 0E9E7H 
0E1E7H, 0CAD7H 
0A8 BAHj> 08094H 
0586CH,03646M 
0 l F29H, 01 7 i 9H 
0 1F19H, 03629H 
05846H, 0806CH 


0A894H,0CABAH . ISINEWAVE 
0E1D7H,0E9E7H 
0E1E7H, 0CAD7H 
0A8BAH, 08094H 
05S6GH, 03646H 
0 i F29H, 01719H 
01F! 9 Hj> 03629H 
05846H, 0806CH 


0A894H,0CA3AH JSINEWAVE 
0E1D7H, 0E9E7H 
0E1E7H, 0CAD7H 
0A8BAH, 08094H 
0586CH, 03646H 
01 F29Hj> 0171 9H 
01F19H, 03629H 
05846H, 0806CH 


0A894H, 0CABAH ISINEWAVE 

0EID7H,0E9E7H 

0E1E7H, 0CAD7H 

0A88AH,, 08094H 

0586CH,03646H 

01 F29H, 0171 9H 

8 1F19H, 03629H 

05846Hj> 0806CH 

JW0-2 

0A090H, 0C0B0H ITRIANGLE WAVE 

0E0D0H, 0FFF0H 
0E0F0H, 0C0D0H 
0A0B0H, 08090H 


6-35 



4BFD 

4001 

4005 

4009 


4C0D 
4011 
401 5 
4019 
40 ID 
4021 
4025 
4029 


4C2D 

4031 

4035 

4039 

4C3D 

4041 

4045 

4049 


4C4D 

4051 

4055 

4059 

4C5D 

4061 

4065 

4069 


4060 

4071 

4075 

4079 

4C7D 

4081 

4085 

4089 


4C8D 

4091 

4095 

4099 

4C9D 

4CA1 

4CA5 

4CA9 


4GAD 

4CB1 


70605040 

DW 

06070Hj» 04 850H 


30201000 

DW 

02030BL @0010H 


10203040 

DW 

020l0Hj, 04030H 


50607080 

DW 

06050H,08070H 



WM2 



90A0B0C0 

DW 

0A090H* 0C0B0H 

3 TRIANGLE WAVE 

D0E0F0FF 

DW 

0E0D0Hj? 0FFF0H 


F0E0D0C0 

DW 

0E0F0H,? 0C0D0H 


B0A09080 

DW 

0A0B0H* 08090H 


70605040 

DW 

06070Hj> 04050H 


30201000 

DW 

02038 JHU 00010H 


10203040' 

DW • 

02010H# 04030H 


50607080 

DW 

06050Hj> 08070H 



WM2 



90A0B0C0 

DW 

0A090Hj> 0C0B0H 

1TRIANGLE WAVE 

D0E0F0FF 

DW 

0E0D0H,0FFF0H 


F0E0D0C0 

DW 

0ESF0H# 0C0D0H 


B0A09080 

DW 

0A0B0H^ 08090H 


70605040 

DW 

06070Hj> 04053H 


30201000 

DW 

02030H# 00810H 


10203040 

DW 

0201 0Hj> 04030H 


50607080 

DW 

06050H^08070H 



WM2 



90A030C0 

DW 

0A090H^ 0C0B0H 

1TRIANGLE WAVE 

D0E0F0FF 

DW 

0E0D0H* 0FFF0H 


F0E0D0C0 

DW 

0E0F0H.» 0C0D0H 


B0A09080 

DW 

0A0B0H* 08090H 


70605040 

DW 

06070H*04050H 

■ 

30201000 

DW 

02030Hj> 0001 8H 


10203040 

DW 

0201 0Hj- 04 030H 


50607080 

DW 

06850H,* 08070H 



WM3 

I W0-3 


98AEBFC8 

DW 

0AE98H>0C8BFH 

JJFUNDAMENTAL AND 

CAC5BAAA 

DW 

0C5CAHj0AABAH 

11 2ND HARMONIC 

99897074 

DW 

0S999Hi0747CH 


70727880 

DW 

07270H* 0S078H 


8S8E908C 

DW 

08E88Hj> 08C90H 


84776756 

DW 

07784H#05667H 


463B3638 

DW 

03B46H,03836H 


41526880 

DW 

0524 1 Hj> 08068H 



WM3 



98AEBFC8 

DW 

0AE98H> 0C8BFH 

11 FUNDAMENTAL AND 

CAC5BAAA 

DW 

0G5CAH* 0AABAH 

11 2ND HARMONIC 

99897074 

DW 

08999H/ 074 7CH 


70727880 

DW 

07270HL* 080 78H 


888E908C 

DW 

08E88Hj» 08C90H 


84776756 

DW 

. 07784H.O05667H 


463B3638 

DW 

03B46H# 03836H 


41526880 

DW 

0524IH,08068H 



WM3 



98AEBFC8 

DW 

0AE98Hj -00 8BFH 

11 FUNDAMENTAL AND 

CAC5BAAA 

DW 

0050AHj 0AABAH 

11 2ND HARMONIC 


6 - 36 



4GB 5 

99897C74 

D;l 

089991b 0747CH 

4CS9 

70727833 

DV 

07270H# 08078H 

4GBD 

888E908G 

DW 

0SE88H* 08C90H 

4CC1 

84776756 

DM 

il 7 7 84 H 0 5 6 6 7 H 

4GC5 

463B3638 

DW 

03B46H.*03836H 

4CC9 

41526880 

DW 

0524108068H 



WM3 


4CCD 

98AEBFC8 

l'W 

0A£98H,0CSBFH 

4CD1 

CAC5BAAA 

LW 

0C 5CAH,» 0AABAH 

4CD5 

99897074 

rw 

039991b 074 7CH 

4CD9 

70727880 

1 w 

07270H,08078H 

4CDD 

888 E90 o0 

E W 

08E88Hj> 08C90H 

4CE1 

84776756 

I w 

07784H> 05667H 

4CE5 

4 6 33:16 3 8 

LiJ 

038461b03836H 

4CE9 

4 1 5 id 6 8 8 0 

1 >w 

05241H#08068H 



V/M4 

J? W 0 ** 4 

4CED 

4A7296B6 

DW 

0724AHj» 0B696H 

4CF1 

D0E3EFF3 

DW 

0E3O0M,» 0F3EFH 

4CF5 

EFE3D3B6 

DW 

0E3EFlb0B6D0H 

4CF9 

96724A21 

DW 

072961b0214AH 

4CFD 

21212121 

DW 

02121Hj 02121H 

4D0 I 

21212121 

DW 

321211b 02121H 

4D05 

21212121 

DM 

02121 lb 0212iH 

4D09 

21212121 

DW 

021211b 02 I2.IH 



WM4 


4D0D 

4A7296R6 

DW 

0724Alb 0B696H 

4D1 i 

D0E3EFF3 

DW 

0E3D01b0F3EFH 

4D15 

EFE3D036 

DW 

0E3EFH#0B6D0H 

4DI9 

96724A21 

DW 

072961b 0214AH 

4D1D 

21212121 

DW 

0212 lib 02121H 

4D21 

21212121 

DW 

0212 1 Hj» 021 21H 

4D25 

21212121 

DW 

02121 lb 02121H 

4D29 

21212121 

DW 

0212 lib 02121H 



WM4 


4D2D 

4A7296B6 

• DW 

0724AH* 0B696H 

4D31 

D0E3EFF3 

DW 

0E3D0H# 0F3EFH 

4D35 

EFE3D0B6 

DW 

0E3EFIb 0B6D0H 

4D39 

96724A21 

DW 

07296H# 0214AK 

4D3D 

21212121 

DW 

0212Ilb02121H 

4D41 

21212121 

DW 

02121 lb 02121H 

4D45 

21212121 

DW 

02121 lb 02 12 lH 

4D49 

21212121 , 

DW 

02121 lb @2121H 



WM4 


4D4D 

4A7296B6 

DW 

0724Alb0B696H 

4D5I 

D0E3EFF3 

DW 

0E3D0H* 0F3EFH 

4D55 

EFE3D036 

DW 

0£3£Flb 0B6D0H 

4D59 

96724A21 

DW 

' 072961b 02 14AH 

4D5D 

21212121 

DW 

021 2 1 Hjf 02 12 1 H 

4D61 

21212121 

DW 

02i21 lb 0212iH 

4D65 

21212121 

mi 

02121 lb 02121H 

4D69 

21212121 

DW 

02 l 2 ,1 Ht d2 I 2 ! H 


i % FUNDAMENTAL, AMD 
St 2ND HARMONIC 


I RECTIFIED SINEWAVE 


IRECTIFIED SINEWAVE 


;RECTIFIED SINEWAVE 


S RECTIFIED SINEWAVE 


6-37 





4E21 

4C3D2Z20 

DB 

76, 61,46, 32 

J 1 

4E25 

15111316 

DB 

21,17, 19,22 

a ® 

9 9 

4E29 

1D2A3D59 

DB 

29,42,61,89 

* « 
9 9 



WM6 



4E2D 

80A7C3D6 

D3 

128,167,195,214 

® * 
9 S 

4E31 

E3EAEDEF 

DB 

227,234,237,239 

« o 

9 9 

4E35 

EBE0D2C3 

DB 

235,224,210,195 

II 

4E39 

B4A79B8E 

DB 

180,167,155,142 

* ® 
9 9 

4E3D 

80726559 

DB 

128,114,101,89 

s- a 

9 9 

4E41 

4C3D2E20 

DB 

76,61,46,32 

# © 

4E45 

15111316 

DB 

21,17,19, 22 

9 9 

4E49 

1D2A3D59 

DB 

29,42,61,89 

9 9 



WM6 



4E4D 

80A7C3D6 

DB 

128,167,195,214 

o « 
9 9 

4E51 

E3EAEDEF 

DB 

227,234,237,239 

® « 
3 9 

4E55 

EBE0D2C3 

DB 

235,224,210, 195 

6 *> 
9 9 

4E59 

B4A7938E 

DB 

180,167,155,142 

» 

9 9 

4E5D 

80726559 

DB 

128,114,101,89 

© <9 

9 3 

4E61 

4G3D2E20 

DB 

76,61,46,32 


4E65 

15111316 

D3 

21,17,19,22 

« © 
9 9 

4E69 

1D2A3D59 

DB 

29,42,61,89 

» © 
P 9 



WM7 

%S U0-7 


4E6D 

80F1FFE5 

DB 

128,241,255,229 

1 1 

4E71 

CEB49A8A 

DB 

206,180,154,138 

» ® 
JP J 1 

4E75 

88909396 

DB 

136,144,147,150 

» © 
9 3 

4E79 

99928C8A 

D3 

153,146,140,138 

1 1 

4E7D 

8076746E 

DB 

128, I 1 3.5 1 16, 110 


4E81 

676A6D70 

DB 

103, I06.o I 09, I 12 

9 9 

4E85 

7876664C 

DB 

120,118,102,76 

* ® 

4E89 

321B010F 

DB 

50,27,1,15 

a 9 



WM7 



4E8D 

80F1FFE5 

DB 

128,241,255,229 

® © 

4E9 i 

CEB49A8A 

DB 

206,180,154,138 

o <P 

J> 3 

4E95 

88909396 

DB 

135,144,147,150 

© © 
* 

4E99 

99928C8A 

DB 

153,146,140,138 

• * 

4E9D 

8076746E 

DB 

128,118,116,110 

a a 

J J? 

4EA1 

676A6D70 

DB 

103,106,109,112 

e e 

J J? 

4EA5 

7876664C 

DB 

120,118,102,76 

® a 

JP 

4EA9 

321B010F 

DB 

50,27,1,15 

a © 

9 9 



WM7 

' 


4EAD 

80F1FFE5 

D3 

128,241,255,229 

* e 
J* * 

4EB1 

GEB49A8A 

DB 

206,180,154,138 

.1 1 

4EB5 

88909396 

DB 

136,144,147,150 

<e « 

9 9 

4EB9 

99928C8A 

DB 

153,146,140,138 

<5 ffl 

JP 9 

4EBD 

8076746E 

D3 

128,I18,116,110 

0 « 

* 

4EC 1 

676A6D70 

DB 

103,106,109,112 

* ® 
J> ^ 

4EC5 

7876664C 

DB . 

120,116,102,76 

© ® 

JP JP 

4EC9 

3213010F 

DB 

50,27,1,15 

* « 
9 9 



WM7 



4ECD 

80F1FFE5 

DB 

128,241,255,229 

» a 

J 9 

4 ED 1 

C &S49 A 8A 

DB 

206,180,154,138 

1 1 

4ED5 

88909396 

DB 

136, 144, 147, 1 50- 

® ® 


CELLO 


CELLO 


TRUMPET 


TRUMPET 


TRUMPET 


TRUMPET 


&-33 



4ED9 

99928C8A 


DB 

153,146*140*138 11 

4EDD 

8076746E 


DB 

128, 118,116,110 11 

4 EE l 

676A6D70 


DB 

103,106,109,i12 1J 

4EE5 

7876664C 


DB 

120,118,102,76 11 

4EE9 

32IB010F 


DB 

50,27, 1,15 

6 a 



11 SPECIAL TABLE FOR VIDEO 

ROUTINES * 

4EED 

01 

SPT0: 

DB 

1 • • 

1 9 9 

DIV.BY 3 RING CTR 

4EEE 

01 

SPT1 : 

DB 

i st\ 

NUMBER OF CARDS 

4EEF 

1000 

SPT2: 

DW 

16 11 

CMEM DELTA . 

4EF1 

CD49 

SPT3: 

DW 

cmem+ 10 n 


4EF3 

0600 

SPT4s 

DW 

6 3 J 

GTBL SIZE 

4EFS 

F74E 

SPTS: 

6 » 

DW 

GTBL1 S3 




9 9 f 

S3 SCRATCH PAD 

■*> & 

FOR GRAPHIC 

INFORMATION 



9 9 

MM1 

MACRO 

G1,G2,G3 

9 © 

9 9 




DB 

0 11 

FREQ BYTE 




DB 

0 11 

SPARE 




DB 

G I 11 

OR-MASK 




DB 

G2 11 

AND-MASK 




DW 

G3 11 

DISPLAY POINTER 



* <9 

ENDM 

$ © 
** $ 




9 9 

GTBL1: 

MM1 

0, 3FH,VIDEO 

4EF7 

00 


DB 

0 3 3 

FREQ BYTE 

4EF8 

00 


DB 

0 11 

SPARE 

4EF9 

00 


DB 

00000H 11 

OR-MASK 

4EFA 

3F 


DB 

0003FH 11 

AND-MASK 

4EF3 

00EC 


DW 

0EC00H 11 

DISPLAY POINTER 



GTBL2: 

MM1 

80H,0BFH,VIDEO+80H 

4EFD 

00 


DB 

0 11 

FREQ BYTE 

4EFE 

00 


DB 

0 11 

SPARE 

4EFF 

80 


DB 

00080H 11 

OR-MASK 

4F00 

BF 


DB 

000BFH 11 

AND-MASK 

4F01 

80EG 


DW 

0EC80H 11 

DISPLAY POINTER 



GTBL3: 

MM1 

0, 3FH,VIDEOS100H 

4F03 

00 


DB 

0 11 

FREQ BYTE 

4F04 

00 


DB 

0 11 

SPARE 

4F05 

00 


DB 

00000H 11 

OR-MASK 

4F06 

3F 


DB 

0003FH 11 

AND-MASK 

4F07 

00ED 


DW 

0ED00H 11 

DISPLAY POINTER 



GTBL4: 

MM1 

80H,0BFH,VIDEO+180H 

4F09 

00 


DB 

0 11 

FREQ BYTE 

4F0A 

00 


DB 

0 11 

SPARE 

4F0B 

80 


DB 

00080H 11 

OR-MASK 

4F0C 

BF 


DB 

000BFH 1J 

AND-MASK 

4F0D 

80ED 


DW 

0ED80H 11 

DISPLAY POINTER 



GTBL5: 

MM1 

'0, 3FH,VIDEO+200H 

4F0F 

00 


DB 

0 11 

FREQ BYTE 

4F10 

00 


DB 

0 11 

SPARE 

4F1 1 

00 


DB 

00000H 11 

OR-MASK 

4F12 

3F 


DB 

0003FH 11 

AND-MASK 

4F1 3 

00EE 


DW 

0EE00H 11 

DISPLAY POINTER 
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QTBL6: 

MM 1 

4F15 

00 


D3 

4F16 

00 


DB 

4F17 

80 


DB 

4F18 

BF 


DB 

4F19 

80EE 


DW 



GTBL7: 

MM1 

4F1B 

00 

' 

DB 

4F1G 

00 


DB 

4F1D 

00 


DB 

4F1E 

3F 


DB 

4F1F 

00EF 


DW 



GTBL8: 

MM1 

4F21 

00 


DB 

4F22 

00 


DB 

4F23 

80 


DB 

4F24 

BF 

•v 

DB 

4F25 

80EF 


DW 

0000 



END 


80H,0BFH,VIDEO+280H 


0 

e o 

S> 9 

FREQ BYTE 

0 

9 9 

9 9 

SPARE 

00080H 

a e 
& * 

OR-MASK 

000BFH 

© 6 

9 9 

AND-MASK 

0EE80H 

® ' ® 

9 » 

DISPLAY POINTER 

0S 3FHs VIDEO+300H 

0 

*» 9 

9 9 

FREQ BYTE 

0 

© 9 

SPARE 

00000H 

1 J 

OR-MASK 

0003FH 

1 1 

AND-MASK 

0EF00H 

e ® 

DISPLAY POINTER 

80Hj> 0 BFHj> VIDEO+3S0H 

0 

2 ^ 

FREQ BYTE 

0 

i j 

SPARE 

00.080H 

9 « 

$ 9 

OR-MASK 

000BFH 

© ' 0 

J* 

AND-MASK 

0EF80H 

e ® 

<? 9 

DISPLAY POINTER 

I END 

OF 

SOURCE 
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7,0 SOFTWARE/HARDWARE TIMER 

T" - - - - " - -— 

7*1 Software Timer 

Written within MUS-X1 is a software timer that times out the duration 
pf sixty-fourth notes. The time-signature presets the timer with a value 
which will set the right tempo to the music. Since the timer relies on the 
execution time of a routine in software, the number of memory wait-states 
will affect the tempo. To correct for zero, one or two wait-states on RAM 
board, look at a routine named M STIM2 n in the source listing (6,0) and a 
program change is shown that will adjust the timer. 

7,2 Hardware Timer 

MUS-X1 was written with mu 1 1i-programming in mind. If MUS-Xl was sup¬ 
ported with a interrupting timer of hardware, then the music program and an¬ 
other program could be run at the same time (time sharing). This hardware 
system would allow for software games with sound effects at the same time, 
like "Star Trek" with sound effects. Another case would be writing correc¬ 
tions to one piece of music while listening to a copy of it. 

The hardware timer is still under development at this time, but can be 

described. 

a) The 2MHZ clock on the S-100 Bus would be tapped off through a buffer gate 
to drive a divide-by-ten counter. 

b) The 200KH2 signal from the divide-by-ten counter then drives four cascaded 
four-bit count-down counters. 

c) The four four-bit counter must be loadable with a four-bit code each. 

d) The four four-bit codes come from two parallel output ports at 40 Hex 
and 41 Hex. (The software to drive these ports is already present with¬ 
in MUS-Xl). 

e) The data at port 40 Hex is the LSD and at port 41 Hex is the MSD of the 
time. The most significant bit of port 41 Hex should turn-on and off 

the 16-bit counter (four stages). 

OFF = 0, ON = 1 

f) When the 16-bit counter counted down to zero, a circuit would interrupt 
the computer and then vector the computer to the entry point for "ENTRI" 
and reload the counters from the two ports. 

g) The vector command would be a "call" instruction with the address for 
"ENTR!" so when the music cards were updated MUS-X1 would return control 
back to the other program that was running at the same time. ' 
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MIXERS 

As more SB-1's are added to the computer, the out¬ 
puts will have to be mixed into one or two common outputs 
to drive a mono or stereo amplifier. One of the following 
mixers can be used. 

Passive 

SB-1 card 

Card 2 


Card 8 



Active 

Two 9 volt batterys, Ul,pin8=+9V, 




Ul,pin4=-9V 
Jlj (——o Right Ch. 



All Res.=20K,5% MCI 458 

All Cap.=20mf,10V 


FIL TER CIRCUIT 

In some applications, the upper harmonics in a par¬ 
ticular waveform is harsh sounding. The waveform out of 
the mixer can be filtered above 8KHz to soften the sound. 
8KHz Low-pass Filter,18 DB/Qctav e 

MCI 458 
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MUSIC DECODING SHEET 




Octave 6 



NOTE.... CDEFGAB CDEFGAB CDEFGAB 



Octave .1 




J 

J 


...Whole note (W) 
...Half note (H) 
...Quarter note (Q) 



..Eighth note (0) 
..Sixteenth note (S) 

. .Thirtysecond note (T) 


J« ... Increase note duration 
by 50 % 



... He pea I, (between these 

brackets repeat the measures 
as indicated.) 




...Quarter rest (QR) 
...Eighth rest (OR) 
...Half rest (HR) 
...Whole rest (WR) 
...Fiat (-) 

. ..Sharp (O 
...Natural ( ) 

. ..Measure separator (/) 











T 


(K.-B) ( 90,3,4) MP 4H DQD;M P 3QDFA/ QAGA; QD FA/ ......... 


V-/, 


































8.0 MUSIC EXAMPLE 


2102A Walsh Avenue 
SANTA CLARA, CALIFORNIA 95050 

(408) 246-270? 


0001 "FLIGHT OF THE BUMBLE-BEE BY RIM5KY"KORSAKOV” \ C 

0002 Cl'75 *2*4) CK, > 

0003 CEO -3* 1 3s 1 3 # 1 3 # 1 3«1 3 > 1 3« 1 3# I 3 * t 3.»1 3 * 1 3# 1 3 *! 3 * 1 3 # t.3 « 1 ) 

0004 (El-3)/ 

0010 XS6EX^D«D^C"CD^C*C5B; 1 03EHQH1 X03TGRQR1103BROS/ 

0020 PS6C5B~BA^G*G^F*F;PHR;PHRJPHR/ 

0030 S5E+D»D+CD+C«G4B2 02ERQRJ02BRQR2 03DRQR/ 

0040 S5C4B+A®A*G**G+F®FJHJUHRIHR/ 

0050 S4E+D*D+CD+C«G382HR*HR2MR/ 

0060 S4E+DaD*C0*C®C3BlHRIHR!HR/ 

0070 S4E+D*D+G*CFE^DJ 02ARQRJ 03ERQR* 04CRQR/ 

0080 S4E+D»D‘*>C *C♦CDO* 02AR3DR * 03ER-*FR } C4CR3AR/ 

0090 S4E+D«D+C*CFE-»-D!02ARQRI03EMH5 04CRQR/ 

0100 S4E+D“D+G»C ♦CD 01S2ARRR3DRRR1S3ERRR+FRRRJS4GRRR3ARRR/ 

0110 S4E+D-D+CD+C ®C3BIS2ARRRQR153ERRRFRRR254CRRR3ARRR/ 

0120 S4C +CD+DEFE+D J9R02D103ER+GRI03AR8R/ ' • "-V 

0130 S4E+D«D+CD+C ®C3B# 03CRQR103ERFRI 03ARAR/ 

0140 S4C+CD+DE4-FG*G;QR03DRI03ER+GRI03ARBR/ . 

0150 S4A +G ®G +F«F“BA S 03 +CRDR J 03GRFR $ 03ARAR/ 

0160 S4A+G*G+F®F+FG +G $ Q3FRDRJ03ARGRJ 04DR3BR/ 

0170 S4A +G *G +F*F-BA *Q$ 03FRRR103ARRR104DRRR/ 

0180 S4A+G-G +F«F*FG+G % 03FRDR103ARGR 1 04DR3BR/ 

01 90 S 4A +G *G +FG +F »F E J 03 FR GR1Q3 AR »BR * 04 DR DR / 

0200 S4F +FG *GA-BA*G103FRER103ARGR104DR4 +CR/ 

0210 S4A +G«G +F +G^F«FE $ 03FRDRJ03ARGR104DR3-BR/ 

0220 S4F+FG+GA »BA4-0103DR*CR1 03FRER103ARGR/ 

0230 S4A5 AA6APA5AA4A103DRRRPJ03FRRRPI03ARPT4A-BA-BOR/ 

0240 SR -B ~B6 -B -B5-8 »B4~BJ04♦GTS*GAOA+GARR4♦GA+GA $ 04-8RRR1HR/ 

0250 S5ARA6AMPA5A6A5A1S4A5AQRMPT4A-BA-BIMPHRIMP HR/ 

0260 S5-86~S5-B7-B~B6"8-B5-B104 +GT5♦GA♦GA+GARR4+GA+GA $ 04-BRRR;HR/ 

0270 S5ARQRS4A-BA +G 1 S4A"8 +G0RS6AR 1 HR I HR ✓ ' ' 7 

0280 S4A -BA +G A -BA +G $ S5AR »BR *BR6 GR % ORS ♦GR *GR +FR 1 HR / • ' 

0290 MIS4A“B*85G +G®G4B*B1MIS5FR03FR5F»M2S5AR03AR5A1MIS6 +CR 04 +CR6♦C/ 

0300 S4A5«B®B6G+G«C58~82S5FR0RR4FIS5AR0RR4AIS6♦CRORRS+C/ 

0310 PPS5ADD6DPD5DD4A1PPS4+FRT40“EED“ED-ED«ED-ED-E1S4AR0.RPIS5DR3.RP/ 
0320 MPS~E4G5-E6+C~E7+C5-E6*GlMPS4“BG5OG6+CG5OGJMPS4+CR0RQRIMPS4-ER0R« 
0330 S6D5DDDDDDDIS5♦FRORQR1S5DR0RQRIHR/ 

0340 S5-E+C“E6+C5“E4-C”E6+G1S5«C4G5'«’CG‘9-C4C5+CG1HRIHR/ 

0350 S6D-ED^CD-‘ED«G1S5D4A5DA^CG*GG! S5^FRRR“8R-8RIQRS5 -ER-ER/ 

0360 S6D5 “ED^GMPD-ED+C i S5DR4 ♦CRMP »CR38R ^ S5^FR4 »BRMP “AR-AR i S5AR4 -ERMr»=ERir 
03 70 MIS5MPD-E*EMIF+FMP«FEP-EIMIS4»B^5 +CDMI-ER»EMP-EDP +C1 H3 -B1H4 +F / 

0380 PSSDMP»E»EMIF+FMP«FEP“E!P$4»8MP5+CDMI-£*EMP-EDP*CJH3 -BIH4+F/ 

0390 PPS5D4>C-C4B-B6-EO+ClPPS4GROR54-B5-EGA;PPS3GR(mQRlPPS3-BftORQR/ 

0400 S6D+C»C5S-B«B6C^C^S5-BR0RSGR0R1GRS5-ER0R2QRS5CR0R/ 

0410 S6D^C*C586C5B-BA i 04»BR♦?RIO50RCRIOSGR-ER/ 

0420 S5-B»B6C ♦C®C ♦CD^Ol 04 GRFR; 04-SHARI OS mm * 

0430 S 6 E ♦D * O'*C R 7 +C ■ G 6BI 04 ER S 6 D +C «C 5 B104 ♦GRQ 6E105 DM R / 

0440 S7C6B-8A+G»G+F«F;S6C5B-BA^G»G4F"FJQ6EE}HR/ 

0450 S5ERE+DRFE+OJS5EFRRERCR1QRS4ERCRIHR/ 

0460 S5EFE ♦OEFE+D $ S3ARFRAR4CR # S4ARFRAR5CR 7HR/ 

0470 SR5FE♦DR4FE +D J 55ERRR4ERGR * S4ERRR3ERCRI HR / 
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0480 S4EFE +DEFE +D JS 3ARFRAR4 CR 3 S 2ARFRAR3 C R ; HR / 

0490 SR5+D*D+CD+C*C4B;S4E*F«F£FE+D=DJS3ER0RQR;HR/ 

0500 S5C4B-8A +G*Q +F -Fi S4E+D“D+C*C38-3A!HR;HR/ A 

2050 S4EFE+DEFE+D!S3BR0R7E6E7C6C;S3+GR0R9R;HR/ 

2050 S4EFE+DEFE+D;S6A5A6F5F6A5A7C6C;HRJHR/ 

2070 S4EFE+DEFE+D;T7EFEFEFSRS6ET.RCDC;HR;HR/ 

2080 S4EFE+DEFE+D1S5CT•5FGFSAR6GR;HR;HR/ 

2090 S4EF+FG+GA +A8 $ T6EFEFEFEFEFEFEFEF;HRiHR/ 

2100 S5C+CD+DEF+FG S T6EFEFEFEF5EFEFEFEFIHR;HR/ 

2110 S5+GA+AB6C +CD+D1T5EFEFEFEFEFEFEFEF;HR!HR/ 

2120 S6EFE+DE5FE+DIT5EFEFEFEFSER4ERIHRIHR/ 

2130 MIS5E+D-D+C«CFE+D;MISEAR0R9R;MI03ARQR;MI04ER9R/ 

2140 S5E+D*D+C*C +CD+D;03AR3 +FR104ERDR 1 05CRS5ARRR/ 

2150 S5E+D»D+C»CFE+D;03ARQR;04ER9RJS5ARORQR/ 

2160 S5E+D»D+C»C+CD+D } 03AR+FRI04ERDR105CRS5ARRR/ 

2170 S5E+D=D+CD+C-CB;03ARFR;04ER3ARJS5ARRR04DR/ 

2180 S5C +CD +DEFE+D;03 ERDR;03AR +GR;04CR3BR/ 

2190 S5E+D»D+CD+C*CB;03CRFR;03ARAR;04ERDR/ 

2200 S5C+CD+DE*FG+G 1Q3ERDRJ 03AR+GRJ04GR38R/ 

2210 S5A +G*G+F«F-BA +G;03 +CRDR;03ARAR;04ERFR/ 

2220 S5A +G=G+F*F+FG+3J03DR2BR103ARGR104FRS6DRRR/ 

2230 S5A +G=G+F*F-BA +G;03DRRR;03ARRR i S6DRRRQR/ 

2240 S5A+G»G+F »F +FG+G;03DR2BRJ03ARGRJ 04FRS6FRRR/ 

2250 S5 A +G «G +FG+F«FE;03SR2-BR $ 03ARGR;S6FRRR04DR/ 

2260 S5F +FG+GA-BA +G;02ARGR;03FR*CR % 04DR3ER/ 

2270 S5A+G»G+F»F+FG+GI02FR3DR103DRFRI03ARAR/ 

22 80 S5AB6C DEFE +D ; 03CR2BR 103ERDR 13AR +GR / 

2290 IS6E+D«D+C=CFE+D;102A4ERR;I03E5CRRJI04CRRR/ 

2300 S6E+D=D+C«C+CD+D;02AR+FR103ERDRI04CR3AR/ 

2310 S6E+D-D+C-CFE+D;02A4ERR;03E5CRR;04CRRR/ 

2320 S6E+D»D+C*C+CD+D;02AR+FRJ03ERDR $ 04CR3AR/ 

2330 06ES5+GA-B*B6C+CI02ARS4ARFR103ERRRI04CRRR/ 

2340 S6D+C*C5B6C5B-BA1S4DR3BR4DRFR103FRRR % 03ARRR/ 

2350 55+GA+AB6C+CD+D;03ERRR104CRRRI 04ARRR/ 

2360 S6EFE+DEFE+DI03BRRR104ERRRJ04 +ARRR/ 

2370 06ES5 +GA-B®B6C+C103ARS4ARFR104CRRR104ERRR/ 

2380 S6D+C-C5B6C5B-BAIS4DR3BR4DRFR $ 03FRRR } 03ARRR/ 

2390 S5+GA+AB6C+CD+D;03ERRRI04CRRR104ARRR/ 

2400 S6EFE+DE+FG+GI03BRRRJ 04DRRRIG4GRRR/ 

2410 IS 6A +G *G +F MIG +F =FE;I04CRMI+GR!I04ERMIGRI104ARMIAR/ 

2420 MPS6FE+D«D+C=CSB-BIMP03ARRRIMP04DRRR1MP04FRHR/ 

2430 MIS5A+G»G+FMPG+F*FE;MI02ARMPAR;MI3ERMPERJMI4CRMP+CR/ 
2440 PS5FE+D«D+C»C4B-B;P02ARRRJP03FRRR1P04DRRR/ 

2450 S4A-BA +G-B5A4-B5-BI02A3AS4+GA+G-BI 03ERRR104CRRR/ 

2460 S4ARA5B4A6C4B6D;S5ARRRRR4AR;S4A-B+GB*G5C4A5D;0RRRS4FR/ 
2470 S6EFE+D1I5F6E5F6EI04ES5EE11+DE+DF!03CRIIQRJ03ERI10R/ 
2480 S6ER5E6 +F5E6G5E6 +G;S5EFD +FCGD+G1S5ERRRRR4BR;HR/ 

2490 06ARPPS4EF +FGI03CRRRP®103ERRRPP103GRRRPP/ 

2500 S4+ga-b«b5C+cd+d;hr;hr;hr/ 

2510 S5EF+FG+GA+ABI03ARRRI04ERRRIOSCRRR/ 

2520 S6C+CD+DE+FG+G104ERRR1OSCRRR105ARRR/ 

2530 06ARRR;06CRRR103CRRRI03GRRR/ 

2540 03A5ARRJTR04ETRRRQR;TRR04ASRQRITRRR05CTRQR/ 

2550 03ARRR10SARRRI02ARRRIHR/L 
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Solid State Music 

Augusl 2, 1978 

Sorry we goofed! 

In adding the Video Driver and Additional Commands to MIIS-X1, we also added 
two bugs. These errors can be corrected in MUS-X1, revision 1 with the follow- 
ing changes: 

Error 1 

See page 6~4, bottom of page. 

Change M JZ ENTR2" to a "JZ ENTR3", and also change the code at address 
4130 to CA9340, instead of CA2C40. 

Error 2 

See page 6~5, top of page. 

Change n JMP ENTR2" to a "JMP ENTR3", and also change the code at address 
4146 to C39340, instead of C32C40. 

Error 3 

See page 6~17 » middle of page. • 

"TIMER" is a routine that is being used by "STRT5" as a subroutine. This 
causes problems since TIMER has no return instruction. This problem can 
be cured with a software patch. 

1) Change "STA T5" to a "JMP PATCH", and also change the code at 
address 458F to C3E04F, instead of 32AC49- 

2) Change "JNZ TIMER" to "JNZ PI", and also change the code at 
address 4581 to C2E34F, instead of C29245. 

3) Change "DCX H" to a "RET", and also change the code at address 
45B7 to C9, instead of 2B. 

4) Now add the software routine called PATCH starting at address 4FE0. 


Address 

Code 

MNEMONIC 

4FE0 

32AC49 

PATCH: 

STA T5 

4FE3 

CD9245 

PI : 

CALL TIMER 

4FE6 

2B 


DCX H 

4FE7 

C3DD4) 


JMP FIND3 

Sorry for the inconveni 

i ence. 




Ma1co1m Wright 
Director of R £ D 


MW: dp 


V 



